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COMPUTER CONTROLLED PAGING AND TELEPHONE 
COMMUNICATION SYSTEM AND METHOD 

5 

Cross Reference to Related Annli cations 

This application is related to the Intelligent 
Telephone Control System disclosed in U.S. Patent 
10 Application 08/354,200 of Robert M. Fuller et al as 

inventors and which is assigned to the applicant herein 
(the assignee in the United States) . The aforementioned 
U.S. Patent Application No. 08/354,200 is hereby 
incorporated herein by reference. 

15 

Technical Field 

The present invention relates to a computer 
controlled signaling and telephone communication system 
20 and method for notifying a subscriber of a telephone 
call placed by a caller to the subscriber. 

Background of the Invention 

25 Telephone systems are well known and, indeed, a 

number of techniques are known in the prior art to 
facilitate connecting a caller (i.e. the party initially 
placing the telephone call) with a telephone subscriber 
(i.e. the party whom the caller is trying to contact by 

30 telephone) . Of course, a very well known way to 
accomplish this end is to have a telephone ring at a 
subscriber's presumed location. 



35 



It is well known, however, that subscribers move 
about during the day, and therefore, other techniques 
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have been employed to try to place callers into 
telephone communication with subscribers. These other 
techniques include paging systems and voice mail 
systems. However, both paging systems and voice mail 
5 systems typically suffer a drawback in that the 
subscriber must receive or pick up a message either from 
the paging system or from a voice mail system, or some 
combination of the two, and thereafter, place a 
telephone call to the caller in order to be placed into 
10 direct telephone communication with the caller. 

A problem with this approach is that it is not 
particularly efficient. By the time the subscriber 
receives the page and responds to it, the caller may 
15 have left the place from which they were telephoning or 
may be at an unknown location, in which case, the 
subscriber is frustrated in attempting to make telephone 
contact with the caller. 

20 One solution to this problem, as suggested in the 

prior art, is to provide a tt meet-me" service in which a 
caller is placed on hold at the same time the subscriber 
is paged to a telephone. The subscriber then telephones 
a telephone system and the system, upon recognizing the 

25 call from the subscriber, connects the subscriber with 
the original caller who has been placed on hold. This 
w meet-me" system is described in U.S. Patent Nos. 
4,642,425 (to Guinn) and 5,151,929 (to Wolf). When the 
subscriber is connected to the caller this action is 

30 sometimes known as ^barging in" . 

This prior art u meet-me" system, while improving 
telephone communications, still suffers certain 
drawbacks . For example , in a modern office , people do 
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not necessarily stay put at their desk. They need to 
interface with other people in their office, and 
therefore, discussions may be held in offices other than 
their own or in conference rooms and; of course, they 
may leave the office to go to lunch, the bathroom or run 
errands. Some subscribers have a tendency to use the 
prior art 'meet-me- system a great deal of time. While 
it is possible with current telephone systems to switch 
the -meet-me- service on and off, it does require that a 
subscriber input certain codes at a telephone to switch 
off the «meet-me* service and then key in certain codes 
at a telephone to turn the "meet-me- service back on. If 
the subscriber uses the "meet-me" system in the manner 
described, they are supposed to telephone the system to 
turn off the meet me mode whenever they arrive at the 
office and turn it back on whenever they leave the 
office. That might work well in theory, but it does not 
work well in practice because people forget to switch 
their telephone service, either when leaving the office 
or returning to the office; or alternatively, they will 
leave their telephones in the "meet-me" mode 100% of the 
time. 



A problem which arises when a subscriber uses the 
•meet-me* mode is that it takes a relatively long time 
for a caller to make telephone contact with the 
subscriber, since even if they are sitting at their 
desk, the *meet-me" system first pages them, requiring 
them to pick up their telephone and input certain 
numbers in order to gain access to a telephone switch 
where they eventually meet their caller. A telephone 
call which might otherwise take only 15 or 20 seconds to 
complete, can take three or four times as long when the 
subscriber leaves their telephone in the «meet-me* mode. 
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It is, therefore, one object of the present 
invention to provide and improve this *raeet-me* service. 
With the improved n meet-me* service described herein, a 
telephone subscriber may keep his or her telephone in a 
*meet-me f mode most of the time, but the system, in 
addition to paging the subscriber, also places a 
telephone call from the caller to one or more expected 
locations. Moreover, even if the. paging feature is not 
utilized, it can be very advantageous to be able to try 
to contact the subscriber at a plurality of locations at 
more or less the same time automatically. For example, a 
telephone call placed to a subscriber can be redirected 
as a plurality of calls placed more or less 
simultaneously to the subscriber's home, car telephone 
and office (for example) . The caller can be connected to 
whoever answers these calls, while the other unanswered 
calls continue to ring. If the paging feature is 
utilized, then the subscriber can respond to a page by 
calling into the system and be connected to the caller 
regardless of whether any of the plurality of calls were 
answered . 

The present invention provides a system and a 
method whereby an incoming telephone call is handled by 
a telephone system controller. The controller is 
preferably a programmed device, much like a computer (in 
fact in the preferred embodiment it is a computer which 
has been adapted in certain ways to enable it to 
communicate with the Public Switched Telephone Network 
(PSTN)). The controller initiates a plurality of 
contemporaneous communications seeking the subscriber. 
This plurality of contemporaneous communications may 
include a plurality of independent telephone calls to 
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different destinations or at least one such telephone 
call and a contemporaneous page. 

Another problem which prior art telephone systems 
5 have relates to allowing the subscriber to monitor a 
telephone call thereby giving the subscriber the 
opportunity to answer an incoming call or to allow the 
caller to be handled by an answering machine. Indeed, 
modern answering machines allow the user to listen to 

10 (i.e. monitor) an incoming call in order to decide 
whether to answer the call immediately or to allow the 
answering machine to complete its task. As is well 
known , however, telephone subscribers are apt to receive 
more than one telephone call at a time, but conventional 

15 answering machines can only deal with a single call at a 
time (unless the cost of a second telephone line and a 
multi-line answering machine are borne) . Several 
technologies have been developed to provide smoother 
telephone services which enable a subscriber to deal 

20 with an incoming telephone call if they happen to be on 
the line with another party at the time a telephone call 
is received. The "Call Waiting" service offered by many 
telephone companies allows a caller to receive a second 
telephone call after having answered a first telephone 

25 call. Telephone companies have also offered voice mail 
services to their subscribers. However, those services 
do not allow a subscriber to monitor an incoming call 
like a telephone answering machine does, but those 
service do have the advantage of being able to take a 

30 message from more than one caller at the same time or to 
take a message while the subscriber is engaged with 
another party on the telephone. As a result, these 
technologies (conventional answering machines and 
telephone company provided voice mail service) have 
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competed with each other since they each provide service 
needs which the other cannot provide. 

In addition to or complimentary to the improved 
5 m meet-me* system mentioned above, the present invention 
provides a voice mail system to which an incoming call 
may be directed. The incoming caller may be routed to 
the voice mail system directly or after having been 
processed by the system in a manner which will be 

10 described in greater detail below. The subscriber can 
then connect to the voice mail system in a ^monitoring 
mode* which allows the subscriber to overhear the 
message being left by the calling party for the 
subscriber. If they wish, the subscriber may barge into 

15 the telephone call so that they may speak with the 
calling party, after having preferably given the calling 
party notice that the subscriber is barging in. The 
subscriber may barge in from a telephone instrument 
which is called by the system or after the subscriber 

20 has telephoned into the system, for example, in response 
to a page. 

These and other features of the invention will 
become even more clear upon reading the following 
25 detailed description in conjunction with the attached 
drawings . 

?r j^f np Rg ription of the Drawings 

30 Figure 1 is a diagram of a system of the type which 

may be used to embody the present invention; 

Figure 2 is a flow diagram showing the processing 
capabilities of the call processing facility of the 
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Figure 3 shows how the system interacts with 
callers, subscribers and other persons; 

Figures 4a - 4k provide a detailed flow diagram of 
a preferred embodiment of the invention - the flow 
diagram includes a Main Task in Figure 4a, an Inbound 
Task in Figures 4b and 4b(l) - 4b(7) , a Paging Task in 
Figure 4c, a Barger Disconnect Task in Figure 4d, a 
Forward Leg Task in Figures 4e(l) - 4e(4), a Forward Leg 
Disconnect Task in Figure 4f, a Voice Mail Task in 
Figure 4g, a Voice Mail Disconnect Task in Figure 4h, a 
Caller Disconnect Task in Figure 4i, a Timer Task in 
Figure 4j and a Record Task in Figure 4k; 

Figure 5 is a schematic diagram of a hardware 
environment for the system which connects with one type 
of telephone company circuits ,- 

Figure 6 is a schematic diagram of a hardware 
environment for the system which connects with telephone 
company T-l type circuits. 

Brief Description of the An Pen rii 

Appendix I is a source code listing of the Main 
Program written in VOS (Voice Operating System) . 

Appendix II is a source code listing of an Inbound 
Task used by the Main Program. 

Appendix III is a source code listing of a Forward 
Task used by the Main Program. 
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Appendix IV is a source code listing of a Page Task 
used by the Main Program . 

5 Appendix V is a source code listing of a Voice Mail 

Task used by the Main Program, 

Appendix VI is a source code listing used by 
Inbound Task for phone number playback. 

10 

Appendix VII is a subroutine listing defining 
constants and variables used by all Tasks. 

Appendix VIII is a subroutine listing defining 
15 constants used by the Dianatel hardware switch of the 
preferred embodiment of the present invention. 

Appendix IX is a subroutine listing used for 
conferencing by all Tasks other than the Main Program. 

20 

Appendix X is a listing of ASCI text files which 
define various VOS user setup parameters . 

25 Detailed Descrintiion 

Overview 

Figure 1 illustrates, in block diagram form, a 
30 Telephone Control System that may be used to enhance the 
accessibility of it's subscribers to callers. As is 
shown, the Telephone Control System 40 connects with the 
PSTN 50 via facilities 51. The Telephone Control System 
40 may control a switch 54, causing it to connect 
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incoming and outgoing telephone circuit, e.g., trunks or 
lines 51. 

In an alternate embodiment, the switch 54 is 
actually part of the PSTN 50. In this embodiment, the 
5 facilities 51 mU st be capable of transmitting switch 
control signals from the Telephone Control System 50 to 
the switch 54. An example of this type of facility is a 
CENTREX line, which allows the transmission of switch 
control signals in the form of *hookswitch flashes* and 
10 touch tones to initiate call-conferencing, call- 
transfer, barge-in, speed-dialing, P l us all other 
CENTREX functions controlled by this method. A variation 
of the CENTREX facility is a CENTREX two-way DID trunk 
which not only has the ^hookflash' capability, but also 
provides the called number in the form of Direct-Inward- 
Dialing digits. This is one form of facility 51. Another 
variation of the CENTREX facility provides the called 
number via a separate data-link known as Simplified 
Message Desk Interface (SMDI) . other facility type are 
ISDN primary rate or ISDN basic rate interfaces which 
provide all of these capabilities plus many other in 
addition to two voice compatible channels and a packet 
channel . 



15 



20 



25 



30 



In the preferred embodiment, the switch 54 is part 
of the Telephone Control System 40. In this embodiment, 
the facilities 51 need only include standard DID trunks 
for the incoming calls, and standard outgoing trunks. 
The control system 40 controls switch 54 directly, 
causing it to connect paths between various incoming and 
outgoing trunks as required. 

Again referring to Figure 1, the Telephone Control 
System 40 may also connect to the PSTN 50 via standard 
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phone lines 52, for purposes of communicating with the 
Paging System 60. The Paging System may be any of the 
commonly known paging systems such as those comprised of 
transmitters such as Motorola's PACE or Quintron model 
QT250B and paging terminals such as Glenayre model 
GL3000XL or BBL System 3, which send encoded messages 
via radio frequency to cause a unique pager, or beeper, 
worn by a paging system subscriber, to sound an alert, 
produce a message in a display, activate a light, 
vibrate, or produce any of a variety of other alerting 
mechanisms. Typically, these paging systems will cause a 
pager to be alerted in response to another individual 
dialing a phone number which corresponds to that 
individual ' s pager . This phone number may be routed via 
the PSTN 50 to a paging system 60 (unless the paging 
terminal is directly coupled to system 40), which paging 
system 60 in turn determines, typically via DID digits, 
who the call is intended for, and then sends a radio 
frequency message to alert that individual's pager. To 
cause a subscriber's pager to be activated, the 
Telephone Control System 40 then dials the phone number 
that corresponds to the subscriber's pager. Although not 
described in this preferred embodiment, it is 
anticipated that the Telephone Control System 40 could 
also interface to a paging system directly via a 
dedicated data link. 

An additional facility 53 preferably connects the 
Telephone Control System 40 to the PSTN 50. This 
facility is a trunk which provides the Automatic Number 
Identification (AND of the calling party or the CLID 
(Calling Line IDentif ication) of the calling party. An 
example of such a trunk is the Feature Group D (FGD) 
trunk which is commonly used by interexchange carriers. 
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The interexchange carriers use the ANI information to 
properly bill the calling party. The Telephone Control 
System 40 may use this ANI and/or CLID information to 
differentiate between calling parties and subscribers, 
and for other purposes described herein. Although not 
described in the preferred embodiment, it is anticipated 
that other types of facilities which provide ANI 
information may also be used for this purpose. An 
example of another type of facility which provides ANI 
is a CENTREX line with an SMDI data link, which is now 
available from several types of central offices. The 
SMDI data link is capable of passing both the called 
party number and the calling party number (ANI/CLID) . m 
addition, ISDN primary rate and basic rate interfaces 
supply such information. 



To aid in the discussion of the illustrative 
examples which follow, Figure 1 also shows a 
subscriber's home 15, with a home phone 16; a 
subscriber's office 17, with an office phone 18; a 
cellular telephone system 19, which interfaces to a 
subscriber's car-phone 20; a factory 21, with a factory 
phone 22; a pay telephone 23; a subscriber 24 with pager 
25; and a caller's telephone 26. A voice mail system 90 
is depicted as a stand-alone system. Those skilled in 
the art will appreciate that the voice mail system 90 
may be embodied in telephone control system 40 instead, 
or elsewhere in the overall system. 

The illustrative examples which follow are intended 
only to clarify some of the concepts, features, and 
objects of the invention, and do not define the scope of 
the invention. In this embodiment, the apparatus and 
method of the invention control switch 41 which may be 
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located, for example, in the central office of a 
telephone company. Alternatively, and preferably, a 
controlled switch 41 is included with the apparatus of 
the present invention, which, in turn, may be located 

5 either on the premises of the telephone company switch 
i or elsewhere, including the premises of a business which 
make use of the system. In another embodiment the 
invention is embodied in a telephone control system 40 
which may be placed upstream .of a private branch 

10 exchange (PBX) having direct inward dialing (DID) 
capabilities . 

Before describing the preferred embodiment in 
detail, a general overview of how the invention may be 

15 practiced is first described with reference to the flow 
diagram of Figure 2 . This flow diagram is straight 
forward and is intended to give an overview of how the 
system handles telephone calls. A more robust flow 
diagram is set forth in Figures 4a - 4k which shows how 

20 the preferred embodiment of the system would function in 
a multitasking environment. 

Referring to Figure 2, a call is received at block 
10 and a decision is made at step 12 as to whether or 

25 not the person placing the call is a subscriber of the 
system or is a caller who is trying to reach a 
subscriber 65 (Figure 1) . The location of the subscriber 
may be unknown. The subscriber may be at home 79, at the 
office 77, in their automobile or elsewhere. The 

30 telephone control system will attempt to use telephone 
system resources to place the subscriber in telephone 
contact with a caller located at a phone 6. 



Callers and subscribers can be differentiated in a 
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number of ways. Thus the decision at step 12 can be made 
by various means, including (i) examining the Calling 
Line I.D. (CLID) of the party placing the call to 
determine if the caller is a known subscriber and/or 
5 (ii) examining the Direct Inward Dial (DID) digits 
received from the Public Switched Telephone Network 
(PSTN) 50 (this embodiment assumes that the subscriber 
has one telephone number which he or she uses to contact 
the system and a different telephone number which 

10 callers use to contact the subscriber) and/or (iii) 
whether a special code (i.e. a personal identification 
code or PIN) is input by the person placing and/or 
receiving the call to identify themselves as a 
subscriber. Since the CLID is not always available and 

15 since forcing the subscriber to use a PIN makes the 
marketing of a telephone service more difficult, the 
currently preferred manner of dealing with this problem 
is technique (ii) mentioned above, namely, one telephone 
number is dedicated to each subscriber for the 

20 subscriber to use when calling the system to pick up 
messages or, in the context of the present invention, to 
meet a calling party who has called the system trying to 
contact them, and a second telephone number is dedicated 
to each subscriber for callers to use when calling the 

25 subscriber via the system. In any event, it is 
contemplated that incoming calls can be differentiated 
between subscribers of the system and callers (who are 
trying to contact subscribers) . 

30 Assuming that a caller is on the line trying to 

reach a subscriber, a test is preferably made at step 14 
to determine whether or not the subscriber is already 
available on the system. Whether or not this particular 
test is made at this stage, depends in part, on whether 
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or not the particular hardware which is utilized will 
support the making of such a test and whether the 
additional complexity of including this test is deemed 
to be worthwhile. It is believed that this test should 
5 preferably be performed. If the subscriber is already 
available on the system at the time the caller calls, 
the processing branches to block 16 where a telephone 
connection is established between the caller and the 
subscriber. The subscriber may already be on the system 

10 if, for example, the system includes a voice mail system 
and therefore the subscriber may already be on the 
system at the time the caller calls for the purpose of 
picking up his or her voice mail messages. Alternatively 
the subscriber may be engaged in a conversation with 

15 another caller. In that case, when the new caller 
reaches the system, call waiting treatment is preferably 
applied to the subscriber's circuit. 

At block 16, when a telephone meeting is 
20 established, that means that a connection is made 
between the subscriber who has dialed the system on one 
line with a caller who has also dialed the system on a 
different telephone line. However, the connection can be 
either a full duplex connection (in which case both 
25 parties can speak with each other) or it can only be a 
half duplex connection (in which case the subscriber can 
listen to what the caller says, but cannot speak with 
the caller) . This half duplex mode is used if the 
subscriber wishes to monitor the call before making a 
30 decision to speak with the calling party. Typically, the 
calling party might be conveyed to a voice mail system 
where the subscriber can "eavesdrop" on the message 
which the calling party is leaving for the subscriber. 
Then, if desired, the subscriber can signal the system 
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to switch to full duplex coinmunication after the system 
has preferably first advised the calling party that the 
subscriber is entering the conversation. The voice mail 
system 90 is preferably set up to pause when the 
subscriber barges in, so that recording then stops. 
However, the voice mail system 90 may also be designed 
to allow it to monitor for a code which would cause is 
to resume recording. This would be convenient for the 
parties if they had some particularly good ideas which 
they would like to record and conventional note-taking 
pads are either unavailable or inconvenient to use (such 
as when driving an automobile) . 



If the subscriber is not available at step 14, or 
if that test is not made, the call processing falls 
through to block 18 where a page is placed to the 
subscriber. The page may be via a conventional radio 
coinmunication paging system 60 to a device 61 which 
signals the subscriber by making beeping sounds, or 
vibrating, or otherwise signaling the subscriber that 
they are being paged. Alternatively, the page may be by 
other means, including a computer generated audible 
voice page delivered in a suite of offices or rooms 70 
by means of speakers 71 advising a party that they have 
a call. Such a page can be delivered directly to 
speakers built into many telephones and a subscriber, 
after being so paged, can go directly to the nearest 
telephone, call the system (if needed), enter a PIN code 
and be connected to the calling party. Some means of 
signaling the subscriber that they have a call is 
provided, so that they know to access the system and 
make a connection with the caller. 

More or less simultaneously, the system also places 
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a call to a telephone where the subscriber 65 is 
expected to be located, for example, to phone 76 at 
office 77 or a phone 72 in a room 70 in a building. This 
call may be placed via a PBX to a telephone in the 
5 subscriber's office or may be placed via the PSTN 50 
directly to a telephone 76 on the subscriber's desk, or 
to another telephone where the subscriber is expected to 
be located, for example, phone 81 in the subscriber 's 
automobile, phone 78 at the subscriber's home 79, phone 
10 75 at factory 74, or to a phone on their person, or 
wherever the system expects to locate the subscriber* 
The telephone number of the subscriber's expected 
location (s) is (are) stored in a memory in the control 
system 40 and indeed, may be based upon a schedule which 
15 tracks the normal movements of the subscriber throughout 
the day. The schedule may include a "Do Not Disturb" 
mode in which they would not be paged nor would the 
system try to contact them directly, but rather, the 
caller would be connected directly to a voice mail box 
20 3 0 of the subscriber. As will be discussed with 
reference to the preferred embodiment, the system can 
also make more than one call seeking the subscriber 
and/ or to connect the calling party with the voice mail 
system 90. Such calls can be made simultaneously or 
25 sequentially. In the preferred embodiment, the voice 
mail system is available at a telephone number which is 
contacted either sequentially, that is, after the other 
forward leg call(s) are made or concurrently, if the 
subscriber wants to be able to monitor the incoming call 
30 (in which case the incoming call is preferably to be 
directed to voice mail so that the subscriber can listen 
to the caller's voice). Alternatively to contacting a 
voice mail system, the telephone number of the 
subscriber's secretary, for example, may be stored in 
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the system so that when the system fails in making a 
connection with the subscriber within a predetermined 
time period, the inbound call then would be directed to 
the subscriber's secretary (for example) instead of to 
voice mail. 

In addition to placing the page and placing the 
telephone call, the caller is preferably informed that 
normal call processing is occurring. This may be done by 
(i) allowing the caller to listen to the sounds 
generated by the PSTN (or local PBX) while the call is 
being placed to where the subscriber is expected to be 
located, or (ii) simulating telephone ringback sounds, 
or (iii) generating a voice indicating to the caller 
that the caller has reached the telephone line of the 
subscriber and the subscriber is being paged to a 
telephone, or (iv) allowing the caller to interact with 
the voice mail system 90 if the subscriber wants either 
to be able to monitor the call or wishes not to be 
disturbed, or (v) playing music, or any combination of 
the forgoing, starting at step 22. Typically a timer 
would also be set for the subscriber to either answer 
their phone or to answer their page and telephone the 
system, but that timer is not needed if the caller is 
sent directly to voice mail. 

A test is made at step 24 to determine whether or 
not the subscriber has answered the page and telephoned 
the system. The subscriber may use any telephone 
interconnected to the system to respond to the page, 
including a pay telephone 72 on the street. If the 
subscriber has answered the page and telephoned the 
system, a branch is made to block 16 for which the 
processing has been previously described. Otherwise, the 
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processing falls through to another test at step 26 to 
determine whether or not the telephone number (s) , which 
was (were) called at step 20, has (have) been answered 
(the voice mail number need not necessarily be tested 
for this purpose - the purpose here is to see if a human 
has answered the phone, and, if so, to give the human 
certain options) . If desired, a message may be played 
for the answeree, advising them that the subscriber has 
an incoming call, and thus giving the answeree the 
opportunity to receive the call, reject the call, 
monitor the call or transfer the incoming call to 
another network address. At this point the processing 
preferably falls through to step 36. The two steps 
discussed above, namely advising the answeree of the 
call and allowing them to reject it, may not be embodied 
at all or only partially or may be disabled by suitable 
programming so that these additional steps might be 
utilized in some situations and not in others. For 
example, if the call placed at step 20 is directed to 
the subscriber's telephone at their desk, such 
additional steps may not be warranted. On the other 
hand, when the telephone number which is called at step 
20 is a telephone number which is not necessarily 
primarily and exclusively associated with the 
subscriber, such as a home telephone number, such 
additional steps might be included so that the answeree 
is advised that an incoming call is for the subscriber, 
giving them the opportunity to accept or reject the 
call. The timer examines how long the caller has been 
waiting for the subscriber to either answer a phone or 
to answer the page, and if the subscriber does not 
respond within a reasonable period of time, the 
processing falls through at step 28 so that the caller 
is then conveyed to a voice mailbox, at block 30, where 
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they would be invited to leave a message for the 
subscriber. Of course, this step is unnecessary if the 
calling party has already been conveyed to voice mail to 
give the subscriber an opportunity to monitor the call. 

Turning now to Box 36, a telephone call has been 
placed at step 20, and if the telephone call has been 
answered, the caller is connected to the person who 
answered the telephone at step 3.6. This connection may 
be a full duplex connection or a half duplex connection 
depending on how the system is programmed for that 
particular subscriber. 



The person answering the telephone can park the 
call at step 38, assuming they enter the telephone call 
if the system is set up to allow the party on the 
forward leg to monitor an incoming call. This park 
feature is useful because the person answering the 
telephone may tell the caller that the subscriber will 
be with them in a few moments and then place the call on 
park at step 41. As will be seen, in the embodiment 
disclosed with reference to Figures 4a - 4k, the call 
can be parked merely by placing the answered phone on 
hook. At step 42, a test is made to determine if the 
subscriber has answered the page by phoning into the 
system. If so, a branch is made to block 16 where the 
subscriber is placed into telephone communication with 
the caller, either in full duplex mode or in half duplex 
mode, as previously discussed. The party on the 
forwarded leg is preferably also allowed into the 
communication with the subscriber and calling party and 
the subscriber is preferably provided with a mechanism 
to disengage the party (parties) on the forward leg 
(legs), if desired. If the subscriber has not yet 



WO 96/09731 „ 

PCI7US95/12318 

20 

telephoned the system, the processing falls through to 
step 44 where, if the call has been parked, a 
determination is made to see if a park timer has 
expired. If the caller has been parked for more than a 
predetermined amount of time, as indicated by the timer, 
the processing will fall through step 44, and the caller 
is directed to the subscriber's voice mail at block 30 
where the caller can leave a voice mail message for the 
subscriber. Of course, this could be a second trip to 
voice mail. For example, if the forward leg calls placed 
at step 20 are set up in monitoring mode, then the 
calling party is connected to voice mail at that time 
and voice mail is paused once the answeree on the 
forward leg barges into the call, if the answeree 
exchanges some pleasantries with the calling party and 
then parks them in anticipation that the subscriber will 
answer on another forward leg or will telephone the 
system in response to the page, the timer may expire 
sending the calling party back to voice mail. 
Alternatively, the calling party may be advised that 
they have the opportunity of transferring to voice mail 
if they tire of waiting for the subscriber, in which 
case a transfer to voice mail occurs in response to a 
command entered by the calling party. If the voice mail 
system has simply been paused, then it would be 
preferable to restart the voice mail recording process 
previously initiated as opposed to starting a new voice 
mail session. 



When the subscriber answers the page by telephoning 
the system, and the call made at step 20 has also been 
answered, then a three way conference ensues. An 
appropriate warning tone or message can be played so 
that the persons in telephone communication realize that 
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the subscriber is barging into the telephone call. 
Preferably, the subscriber is provided with a means of 
disconnecting the party who answered the call on the 
forward leg to ensure privacy. 

5 

It is to be noted that a test is made at both steps 
24 and 42 as to whether or not the subscriber has 
answered the page and telephoned the system. Preferably, 
that testing would occur throughout the processing 
10 described above, and not simply at the places indicated. 
A more robust version of this system will be described 
with reference to Figures 4a - 4k, which employs 
multitasking so that multiple processes can be performed 
simultaneously . 

15 

Turning now to an incoming call being detected from 
a subscriber, a test is made at step 46 to determine 
whether or not a call is waiting, i.e., whether there is 
a caller waiting to be connected to the subscriber. If 

20 so, the subscriber may be advised that they have a call 
waiting by an appropriate message played before the 
connection is made at step 16. They may also be given 
the choice of entering the connection in monitoring mode 
(i.e., in half duplex mode) or entering the connection 

25 in full duplex mode) .The subscriber may also be advised, 
at this step, when an additional party enters the 
connection in full duplex mode, such as the party 
answering a phone call made at step 20 chooses to 
connect in full duplex mode. 

30 

Of course, the test made at step 46 need not be 
accomplished if the call meeting process described above 
is the only process which is performed by the system. 
Otherwise, when a subscriber calls into the system, and 
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they have no call waiting, the processing falls through 
to block 50 where other functions may be performed, such 
as programming the system (for example to change the 
mode of operation, to change forwarding numbers, to 
5 change a schedule, etc.) or to give access to the 
subscriber's voice mailbox, etc. The call waiting test 
made at step 46 would preferably be done on a pre- 
emptive basis so that even if the caller were in their 
voice mailbox and if a call were to come into the system 

10 from a caller, the subscriber's presence on the system 
would be detected at step 14 and the subscriber would be 
advised that they have call waiting. The subscriber and 
the caller can then be conveyed to a telephone meeting 
at block 16. Preferably, the subscriber would be first 

15 given the opportunity of meeting the call or conveying 
the incoming call directly to voice mail at block 30 in 
the event the subscriber wishes to continue his or her 
activities at block 47. 

20 The foregoing description has been in the context 

of implementing the invention in a telephone control 
system 40 of the type depicted in Figure 1. 

Turning to Figure 3, this figure shows the system 
25 40 in which the present invention may be implemented and 
how it interacts with callers, subscribers and other 
persons. A call is initiated by a caller 2 who places a 
telephone call, designated by line 3, to system 40. The 
system responds by (1) paging the subscriber and (2) 
30 attempting to telephone the subscriber. Here the paging 
system is shown at numeral 4 and it is connected to 
system 40 by a communication facility 5 (which may be 
provided by the PSTN or by a dedicated channel) . The 
paging system 4 transmits a paging signal 5' to the 
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subscriber who carries a paging device on his or her 
person. The subscriber may telephone the system 40 from 
any telephone 6 interconnected to the system to barge 
into the call with the caller 2. This connection is 
5 called the barge in leg and is designated by the numeral 
7. This leg of the call would typically be made via the 
PSTN. The system in addition to causing a page to occur 
also tries to contact the subscriber at a telephone 8 
having a predefined telephone number. This connection is 

10 called a forwarding leg 9 and it may be made via a PBX 
with which the system 40 cooperates or via the PSTN. The 
system may initiate more than one forwarding leg (as is 
represented here by telephone 8 ' and forwarding leg 9 ' ) 
if it is desired to ring more than one telephone 

15 simultaneously with the placing of the page. For 
example, the system may be programmed to place 
forwarding leg calls to the subscriber desk telephone 
and to their car telephone during normal working hours 
whenever an incoming call arrives in the system 40 from 

20 a caller 2 for the subscriber, in addition to placing a 
page to the subscriber. Once the subscriber is placed in 
telephone contact with the caller any unused legs may be 
then torn down or they may timeout of their own accord. 
When multiple forward leg calls are initiated, the 

25 system preferably produces simulated ring back tones or 
other call progress signals in lieu of providing 
multiple PSTN call processing sounds which may be 
confusing to the caller (for example, if two forward 
legs calls were placed and one number was busy while the 

30 other number was ringing, the sounds produced by the 
PSTN would be rather confusing — to say the least — 
and the calling party should preferably be isolated from 
those sounds) . 
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If more than one forward leg call is initiated, 
ringing continues on each forward leg until the 
associated telephone is answered. Thus if forward leg 
calls are made to a subscriber's cellular phone and to 
their office phone simultaneously, the cellular phone 
continues to ring even if the office phone is answered. 
Likewise, the office phone continues to ring even if the 
cellular phone is answered. Of course, the system can be 
modified so that one phone stops, ringing when other is 
answered. As a further modification, the determination 
of whether one phone stops ringing when another is 
answered could be made programmable and perhaps even a 
function of which phone answers first. Thus, in the 
foregoing example it might be desirable to have the 
office phone stop ringing if the cellular phone is 
answered, but not the other way around (i.e., the 
cellular phone would continue to ring irrespective of 
whether or not the office phone is answered) . 

In the foregoing example, if the office phone is 
answered, the cellular phone continues to ring. And it 
continues to ring even if the office phone is hung up. 
Thus a person in the subscriber' s office can speak with 
the caller and tell them to hold on - the subscriber 
should be with them in a moment. When the subscriber 
eventually answers the cellular phone (or answers a 
page, if they are using a pager), they can speak with 
the caller who has effectively been placed on hold 
merely by the action of the person in the subscriber ' s 
office hanging up. 

A more detailed embodiment of the invention is now 
described with reference to Figures 4a - 4k. The 
invention, as described with reference to these figures, 
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can be implemented in the computerized switch of a 
telephone switching office or can be implemented in an 
adjunct computer which controls the switch 41 in a 
telephone switching office or can be implemented in a 
5 telephone control system 40 which is attached to or part 
of a PBX, for example, in a business. As will be seen, 
the invention as disclosed in this embodiment has many 
of the same features as the invention disclosed with 
reference to Figure 2, but it has several additional 

10 features. For example, methods for handling long 
distance or toll calls are established so that the 
caller is not charged for a toll call until such time as 
the caller's telephone call is answered either by the 
subscriber or by another person who picks up the 

15 telephone 8 or 8' on the forwarding leg. Of course, that 
is the typical way in which toll calls are charged. In 
the invention as disclosed with respect to Figure 2, 
when a telephone call is received at step 10, answer 
supervision might then go back to the telephone company. 

20 Answer supervision not only tells the telephone company 
to start charging for the call but some long distance 
companies typically disable the voice channel from the 
caller until answer supervision is returned. The forward 
channel may be desired in some embodiments, since if no 

25 one answers the call, the caller may want to select 
voice mail, and the system would then need to hear the 
keys depressed by the caller in order to make that 
selection. Typically there is no need to enable the 
forward voice channel from the caller 2 until they are 

30 placed in contact with (i) the subscriber, (ii) a party 
who answered the forwarding leg call, or (iii) the voice 
mail system (so that the caller can leave a message and 
so that the subscriber can monitor the call if they so 
desire) . Thus, if the call at that step 10 were a long 
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distance call, a toll would be charged to the caller, 
even though they had not yet been connected to the 
subscriber (or anyone else) , if answer supervision were 
given at that time. The invention, as it will now be 
described with reference to Figures 4a - 4k. overcomes 
this and other drawbacks and adds additional features, 
as will become clear. 



The software listing which .is appended hereto as 
Appendices I - X generally corresponds to the flow 
diagrams depicted in Figures 4a - 4k. While the software 
listing implements the flow diagrams in most aspects, 
there are some differences. For example, the description 
of the flow diagrams indicates handling more than one 
forward leg call, while the software is currently set up 
only to handle one forward leg call. Further, the 
software listing does not include the memo record 
feature or the music on hold feature, as yet. Such not 
included features can be readily implemented by those 
skilled in the art. 



The software is written in a language which is 
specifically adapted to test telephone system technology 
and is called VOS (Voice Operating System) . The software 
is available from Parity Software Development Corp., of 
San Francisco, CA and runs on the hardware environment 
of system 40 depicted in Figure 5, which will now be 
described. The hardware environment of the system 40 
includes an IBM compatible PC (personal computer) 90 
having CPU of the Intel 486 family or better. 
Preferably, the computer is an AST Bravo MT 486DX2 66 
with 16 Meg of RAM, a large SCSI hard drive, two serial 
ports, one parallel port, mouse, video and DOS, or 
equal. The VOS software supports limited multitasking. 
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The flow diagrams, which will now be described, assume 
that the system 40 runs in a multitasking environment 
and those skilled in the art will appreciate in 
comparing the flow diagrams with the computer code 
5 listing that certain compromises were made in 
implementing the flow diagrams into code. 

The hardware platform also preferably includes a 
Dianatel SmartSwitch96 with SmartBridge96 (switch serves 

10 as switch 41 in system 40), Dialogic LSI/120 interface 
cards, and Dialogic D/121 voice cards. These cards plug 
into the computer motherboard and are also connected to 
each other via PCM data busses, as shown in Figure 5, 
The software listing in the appendices and the Dialogic 

15 cards identified above and in Figure 5 are set up for 
working with POTS (Plain Old Telephone Service) loop 
start lines. With small adaptations to the code and by 
selecting different interface cards (also available from 
Dialogic), then T-l trunks can be used instead. Figure 6 

20 shows the hardware platform with Dialogic cards 
installed in the PC for use with trunks 51. In either 
case, this hardware environment can only support a 
limited number of active incoming calls. This is fine 
for a typical business application, such as where the 

25 hardware controls a PBX installed at the business, but 
if this system is to be scaled up to work with large 
numbers of callers, such as at a telephone switching 
office, then a more robust hardware /software environment 
should be used. Those skilled in the art will appreciate 

30 that several PCs can be used in tandem and certainly 
more powerful CPUs can be utilized. VOS was selected as 
the development environment for the software, but those 
skilled in the art may choose to use another language in 
which to implement the invention. The computer may be 



WO 96)09731 



PCT/US95/12318 



28 

used to generate sounds, especially if a sound board is 
added. For example, a SoundBlaster board can be used to 
generate sounds and computer generated speech as well as 
using known boards of the SoundBlaster type. The 
5 computer may be equipped with a sound generation board 
if it is desired to generate call announcements over 
speakers 71 (Figure 1) . Thus the signaling system may be 
provided by a conventional pager system or a digitized 
speech system which delivers audible communications over 

10 speakers 71 or by a combination of the two systems. 
Paging could alternatively be accomplished by sending 
signals to computers on the desks of subscribers, which 
computers could then not only provide the desired paging 
function, but could also advise the subscribers of the 

15 identities of callers by making use the calling party's 
CLID. Additionally the Dialogic D/121 voice cards can 
produce digitized voices stored, for example, on the 
hard drive, in telephone connections with callers 2, 
subscribers 65 or parties 8.8' on the forwarding legs. 

20 Thus a means for producing courtesy messages to users of 
the system 40 is available. 

Additionally, the system may be connected to 
receive and send Signaling System Seven (SS-7) messages 
25 from and to the telephone company. SS-7 is well known in 
the telephone industry, and therefore does not need to 
be described here. Figure 5 depicts an optional SS-7 
messaging translator which can be embodied in a R-5 
computer by Stratus with SINAP option. 

30 

The main task 100 is shown in Figure 4a. The main 
task 100 starts off by a step 102 in which the variables 
which are used during the processing are set to their 
default values, typical initialization routines run, 
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drivers loaded, etc. After the variables are set up and 
other housekeeping chores accomplished, the processing 
falls through a loop which is made around a test made at 
step 104 to determine if a new inbound call has been 
received. The inbound call could be a call 3 from a 
caller 2 or a barge-in or meet-me call 7 from the 
subscriber or a call from the subscriber merely to check 
their voice mail, to update one or more forwarding 
numbers stored in the system or a. schedule of forwarding 
numbers, etc. If a new inbound call has been detected, 
the processing falls through first to step 106 where the 
inbound channel is determined, then to a step 108 where 
the Calling Line IDentif ication (CLID) is obtained (if 
available) and then processing then falls through to 
step 110 where the Inbound Task 200 is started to 
process the call on the indicated channel. 

The Inbound Task 200 is shown in Figures 4b and 
4b(l) - 4b(7). The Inbound Task 200 starts off at Figure 
4b by obtaining the Direct Inward Dial (DID) number at 
step 201. in this embodiment, it is assumed that the 
subscriber uses one telephone number to call the system, 
while the subscriber's callers use a different telephone 
number to call the system. Therefore, the subscriber and 
the caller can be differentiated by the DID digits. 
Those skilled in the art appreciate, of course, that the 
DID digits are supplied by the telephone company to the 
system. At step 202, a test is made to determine whether 
the DID digits correspond to the telephone number used 
by one of a plurality of subscribers in order to gain 
access to the system. If the DID digits indicate that 
one of the subscribers has called in, then the 
processing falls through to step 235, which is continued 
in Figure 4b(4) . Otherwise, a test is made at step 203 
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to determine if the DID digits indicate that a caller is 
trying to telephone a subscriber, in which case the 
processing branches via connector 205 to the processing 
shown on Figure 4b (1) . If the DID digits do not result 
in a positive test at either step 202 or 203, the 
processing falls through to step 204 where the call is 
disposed of and the task is then suspended at step 
204.1. 

By way of a practical example, subscriber 1 may 
have a telephone number 555-7000 for use by callers and 
a telephone number 555-7001 for use by the subscriber to 
gain access. A second caller may have telephone numbers 
555-7010 for use by callers and 555-7013 for use by the 
subscriber to gain access. Of course, it would be 
envisioned that many more subscribers would be on the 
system than in this small example, but in this example, 
the valid DID digits would be 7000, 7001, 7010 and 7013. 
If a call were made to 555-7009, the processing would 
fall through to step 204 where the call would be 
disposed of. That could be by, for example, playing a 
message to the caller indicating that they had reached 
an unassigned telephone number. If the DID digits 
indicate that a call were made to 555-7013, then that 
call would be identified as a call from the second 
subscriber for the purpose of gaining access to the 
system (e.g. to barge into an existing call or to 
monitor an existing call or to perform other functions) . 
Similarly, if the DID digits indicate that a call were 
made to 555-7000, that call would be identified as a 
call from a caller directed to the first subscriber. 

Assuming that the caller dialed a valid caller 
access DID, such as 555-7000 for the first subscriber on 
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the system, the processing then falls through via 
connector 205 to block 206 on Figure 4b (1) where a test 
is made at block 206 to determine if the monitor mode is 
enabled. In the monitor mode the subscriber can monitor 
the caller (s) to determine if the caller wants to barge 
into the conference (the caller can be in communication 
with either the voice mail system or with a person 
answering on a forward leg) where the caller has been 
placed by the system. As the reader will note, two 
different processing paths are taken if the monitor mode 
is active. Many of the processes in each path have 
identical or similar processes in the other path. Where 
such process are identical, or are at least very 
similar, the same reference numeral is used, but in the 
monitor mode path those reference numerals have the 
letter 'M' appended thereto. For example, after step 
206, in each path the 'caller' variable is set active 
for that particular subscriber at steps 207 and 207M. As 
will be seen, these two paths accomplish very similar 
functions, and, indeed, the two paths could be combined 
as the difference in the functions are not highly 
significant. Rather, they demonstrate two slightly 
different methods of handling an inbound call by the 
system each of which have certain advantages. 

Considering first the monitoring path, processing 
then continues on to the next block 208M where the 
Caller Disconnect Task 900 is started. The Caller 
Disconnect Task is described in detail with reference to 
Figure 4i. After the Caller Disconnect Task has been 
started, the processing then drops to step 209M where a 
page to the subscriber is initiated by starting the 
Start Paging Task 300 (which is described with reference 
to Figure 4c), and on to step 210M where a variable 
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called "call waiting* is set true for the subscriber. 



At step 212M a test is made to determine if the 
forwarding number, i.e., the number which is used on a 
5 forward leg call, is set to the null character. If so, 
then no forwarding number is in the system and 
processing goes on to the Caller Monitor routines via 
connector 216. If a forwarding number is in the system, 
then a test is made at step . 213M to see if the 

10 forwarding number programmed into the system is the same 
a the DID number. If so, the variable w four rings 
played* is set to true at step 214. The reason for this 
is that the present system is preferably used as an 
adjunct to, or embodied with, the telephone control 

15 system disclosed in U.S. Patent No. 5,375,161. Thus the 
forwarding number may be set to the subscriber's 
telephone number used in the apparatus disclosed in that 
U.S. Patent. If so, then the present system directly 
forwards the incoming call to that system externally of 

20 the PSTN without generating any ringing sounds. 
Otherwise, such ringing sounds are normally generated, 
as will be seen. 



A Forward Leg Task 500 is started at block 215M and 
25 then the processing falls through to the Caller 
Monitoring routines on Figure 4b (2) via a connector 216. 
As previously described the system may preferably be 
programmed to forward the call on a number of forwarding 
legs simultaneously or in sequence. The system 
30 preferably includes a database which stores the various 
forwarding numbers for a subscriber along with perhaps a 
schedule indicating at what times the various forwarding 
numbers are effective. For example, during working 
hours, including the time the subscriber is normally 



WO 96/09731 



33 



FCT/US95/12318 



commuting to and from work, they may decide to have both 
their work telephone number and a cellular number stored 
as their forwarding numbers for that time period. At 
other times they may have their home telephone number 
stored as the forwarding number, and at still other 
times they may have programmed the system to direct 
calls to the voice mail box, or invoke call screening 
options. Such personal preferences would be preferably 
stored in a database associated with the system. At the 
point the processing reaches the block labeled "Start 
Forward Leg Task, - the Inbound Task would look to the 
database not only to determine the forwarding number 
then in effect, but preferably also to determine if 
multiple forwarding numbers were then in effect. If so, 
the Forward Leg Task 500 would be repeatedly called at 
this point, once for each forward leg required. 

It is to be recalled that this is a multitasking 
environment such that the Timer Task, Paging Task, the 
Forward Leg Tasks, and the Caller Disconnect Task can 
all be running simultaneously with this particular 
Inbound Task. Multiple instances of the Forward Leg Task 
and associated disconnect tasks may also be running. 
Finally, multiple instances of the Inbound Task are 
likely to be running together with its progeny, i.e., 
the tasks it calls either directly or indirectly. After 
the Forward Leg Task 500 is started at block 215M, the 
caller is added to a conference facility. In due course, 
assuming that the subscriber makes contact with the 
system, the subscriber will also be added to that 
conference. If multiple callers are on the system at the 
same time trying to contact different subscribers, then 
multiple conferences are similarly set up. After step 
215M, the processing falls through a connector labeled 
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with the numeral 216, which can also be found on Figure 
4b(2) . 

Referring now to Figure 4b (2), the processing first 
5 enters a first loop comprising steps 217M, 218M, 220M, 
222M, 223M, 224M and 225M. At step 217M a test is made 
to determine if either four rings have occurred or if 
the variable *four rings played' is currently set true. 
If yes, the incoming call branches to a block where a 

10 voice mail subroutine 234 is called, before returning to 
the first loop. This branch is taken if either four 
rings have been played at step 219M or if the subscriber 
has called in or answered a forward leg call. In the 
latter case, the incoming caller is sent immediately to 

15 voice mail so that the subscriber can monitor the 
caller's interplay with voice mail. The processing loops 
in the first loop until voice mail comes up (a voice 
mail call is answered if it is, for example, an external 
voice mail machine) , in which case the test made at step 

20 225M causes the first loop to exit via steps 226M and 
226.1. 

Continuing through the first loop, the *no* branch 
from step 217M enters a test at step 218M which 

25 determines if a ring should be generated. Since the 
caller has not yet been added to the conference, and 
since answer supervision has not yet been returned, the 
ringing sounds are artificially generated. Ringing 
sounds have a particular cadence, and the test at step 

30 218M assures that the ringing at step 219M follows the 
desired cadence. If the party enters the ## keys at the 
keypad of their telephone, that action is detected at 
step 220M for the purpose of setting the "priority call 
waiting" variable at step 221M. If the party enters the 
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*9 keys at the keypad of their telephone, that action is 
detected at step 222M and the voice mail subroutine 234 
is called. If a forward leg has been answered, then the 
test made at step 223M will cause the processing to exit 
5 via its »yes- leg to block 226. If the subscriber has 
barged into the conference on the barge-in leg 7 and has 
left the monitoring mode (i.e. depressed the * key as 
tested at step 243, Figure 4b(4)), then the a test made 
at step 224M will cause this loop also to be exited to 

10 block 226. This might occur after the first loop is 
exited at step 217M in order to start voice mail and 
then reentered, but with the test at step 225M failing 
(because voice mail failed to respond) . Thus the caller 
and the subscriber can still be placed into telephone 

15 contact in the monitoring mode even if voice mail fails. 

If a forward leg is answered, or if the subscriber 
barges into the conference, or if the calling party is 
sent successfully to voice mail, then the processing 

20 falls out of the loop to block 226, as previously 
mentioned. At block 226.1 answer supervision is returned 
to the caller (i.e. toll charges start if it is a long 
distance call and two-way communications become 
available - two way communications are often inhibited 

25 by long distance carriers until answer supervision is 
returned). After block 226.1 a second loop is entered 
which comprises steps 228M, 257M, 229M, 230M, 231M, 232M 
and 233M. If the caller enters *9 at the keypad of their 
telephone in this loop, the loop exits via step 227M 

30 where music is stopped (assuming it was started at step 
238M) , and calls the voice mail routine 234. Thus, the 
caller enters the first loop where they can hear 
generated ringing sounds. If by four rings either a 
forward leg answers or the subscriber has called in (in 
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response to a page) , or four rings have occurred, and 
the caller has been sent to voice mail and voice mail 
has answered, then the second loop is entered which 
normally just loops around steps 228M, 257M and 229M. 
5 While in the second loop, if the subscriber answers a 
forward leg call, or barges into the call in response to 
a page, then the subscriber is added to the conference 
with the calling party. 

10 The second loop expands to include steps 230M, 

231M, 232M and 233M when the forward leg answers (as 
detected at step 229M) , and then hangs up (as detected 
at step 230M) so long as the calling party is not active 
in voice mail. For example, the person answering on a 

15 forward leg may tell the caller that the subscriber is 
expected to phone the system in order to talk with the 
caller, and therefore the caller should wait on the 
line. During this waiting time, the caller hears a 
message about leaving a message (at step 232M) , or music 

20 (via step 233M) . The second loop also tests at step 228M 
for the caller touching *9 (to go to voice mail via 
subroutine 234) . 

If monitoring mode is not active, then the test at 
25 step 206 on Figure 4b (1) takes the other branch. The 
call processing of the inbound call is similar to the 
monitoring mode processing just described, with the 
following more significant differences: Answer 
supervision is returned earlier (at step 207.1 instead 
30 of at 226.1), and the caller is added to the conference 
earlier (at step 211 instead of at step 226) . Thus, 
instead of hearing a simulated number of rings (as at 
steps 218M and 219M) , the caller hears one ring (step 
213.1) and messages (at steps 213.2 and 213.3) before 
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the Forward Leg Task 500 is started at block 215 
Additional simulated ringing is played at steps 217 and 
218 only if there is no forwarding number (i.e., the 
forwarding number is equal to null). Typically 
processing is via block 213 and the message blocks to 
block 212 then thence to step 215, and then on to 
connector 256 (see Figure 4b(3)). 

Turning now to Figure 4b (3), .the call processing on 
this sheet is similar to Figure 4b (2) in that there is a 
first loop (comprising steps 220, 222, 223, 224 and 
225), and a second loop (comprising steps 228, 257, 229, 
230, 231, 232, and 233). The call handling is' nearly the 
same for both modes (monitoring and non-monitoring) , the 
more major differences having been spelled out above. 
These differences have little impact on whether the 
subscriber decides to utilize the monitoring mode, and 
thus are primarily set forth here as two possible 
techniques for handling the incoming call from a caller. 

Turning now to Figure 4b (4), assuming that the DID 
digits detected at step 202 were associated with the 
subscriber barge-in telephone number, such as 555-7001 
in the prior example, the processing falls through 
connector 235 to step 236 where answer supervision is 
returned for the barger's telephone call. At step 237 a 
Barger Disconnect Task 400 is started. Processing then 
continues on to step 238 where a test is made to 
determine whether or not a caller is active on the 
system. If not, the processing branches to step 248 
after playing a ring at step 238.1. Otherwise, a caller 
is on the system and the processing falls through to 
step 239 where a test is made to determine whether or 
not the subscriber has a Personal Identification Number 
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(PIN) stored. If a PIN is stored, then the -no* leg is 
taken and a ring is played at step 239.1. Otherwise, the 
*yes* leg is taken to step 258 where a test is made to 
see whether or not the monitoring mode is active. IF the 
5 test at step 258 is w yes*, then the processing falls 
through to step 241 where *four rings played' is set 
active. 



If the "no* leg is followed from step 238, meaning 
10 that no caller is on the system, then the party who 
telephoned is given a short period of time (one second 
in the present embodiment) at step 248 to start entering 
a PIN after the ring is played at step 238,1. In this 
embodiment it is envisioned that the subscriber has two 
15 personal identification numbers: one for the purpose of 
programming (which may be a longer, more complex PIN) , 
and the other to meet a caller in the conference (i.e., 
to barge into the conference) for which a different PIN, 
which is preferably shorter, or even nonexistent, may be 
20 used to make it easier to enter and to gain access to a 
telephone call) . If the person starts entering data 
within the one second delay, then processing branches to 
step 250. 



25 If the "no* leg is followed from step 239, meaning 

that a caller is active and the subscriber has a PIN 
which must be entered, a message is played at step 239.2 
advising that a call is waiting and a PIN is requested 
at step 249. If the subscriber has entered their 

30 programming PIN, then a test made at step 250 is 
satisfied, and processing falls through to step 251 
wherein the subscriber can change their program 
variables, their forwarding number(s), voice mail 
attributes, their schedule, activate or deactivate the 
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monitoring mode, or gain access to their voice mail 
system. Those tasks are not described in detail here 
since it is known in the art how to change such 
variables . 

If the person calling on the barge-in line inputs 
the barge-in PIN at step 252, it must be the subscriber 
who is trying to join the conference. Processing then 
falls through to step 253 where a .test is made to see if 
a caller is active for this subscriber. Normally, if the 
subscriber is responding to a page, then the caller 
variable is active, and, if true, processing continues 
via block 258. if a caller is not active, the subscriber 
is advised at step 254 that there is no call waiting, 
and processing returns back to step 249. if the person 
telephoning does not enter a PIN at step 248, then the 
processing continues via connector 280 to Figure 4b(6) . 

The variable -four rings played- is set at step 
241. If the calling party is still in the first loop of 
Figure 4b(2), setting -four rings played- variable to 
true causes the calling party to be immediately 
transferred to voice mail where the subscriber can 
monitor the calling party. Indeed, step 242, which 
follows step 241, adds the barger to the conference in a 
listen only mode (i.e. a half duplex mode) about the 
same time the calling party is added to the conference. 
As will be seen, the voice mail system is also connected 
to the conference for the purpose of recording the 
30 incoming party's message (and thus allowing the 
subscriber to ascertain who is telephoning before taking 
the call) . 
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entered while the subscriber monitors the incoming call. 
The subscriber can (i) , enter the conference by pushing 
the * key (as tested at step 243); or, (ii) , remove 
himself or herself from the monitoring mode by either 
5 depressing the # key (as tested at step 244 and 
implemented at step 255) , or simply hanging up (in which 
case the subscriber is removed from the conference by 
the Barger Disconnect Task 400) . If the subscriber 
decides to speak with the calling party, they merely 
10 depress the * key and then enter the conference in full 
duplex communication at step 246. At the same general 
time, the variable "barger- is set active (see step 
245), and, after the subscriber barges in, a joining 
tone is played at step 247 to advise the calling party 
15 that the barger is coming in and call waiting is reset 
at step 247.1. Processing then proceeds to the Barger 
Answer routine on Figure 4b (5) via connector 260. 

Referring now to Figure 4b (5) . at this point the 
20 subscriber has been identified as wanting to barge into 
the telephone call with the caller, and since the caller 
is in a conference (see steps 211 and 226), the 
subscriber has been added to that same conference (at 
step 246), and a tone was played (at step 247) which all 

25 parties in the conference can hear so that they know 
that the subscriber has barged into the call. The 
processing on the barger leg 7 now enters a loop at 
steps 290, 262, 266, 268, 269, 270, 273, and 275 to 
determine whether the subscriber 65 enters certain codes 

30 at his or her keypad of their telephone instrument 6 and 
to perform certain other tests. As will be seen, certain 
codes control a call waiting feature, while other codes 
allow a message to be recorded, or an outbound call to 
be initiated, or forward leg calls to be brought down. 
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or other features to be utilized. 

In the example shown in Figure 4b (5) , the loop 
first calls a subroutine 290 (see Figure 4b(6)) which 
5 checks to see if a new call from another caller is 
received. The loop next tests at step 262 to determine 
if ** is entered at the subscriber's keypad. If so, the 
subscriber can first answer the subsequent call and then 
toggle between two conferences at steps 263 and 265. The 

10 loop then tests for #8, or #9, to be entered at the 
keypad. If #8 is entered (as tested at step 266), that 
will stop forwarding leg tasks at step 267, and as will 
be seen, that action will disconnect the forwarding legs 
9, 9' if it has (they have) been connected. If the 

15 subscriber enters #9 (as is tested at step 268), the 
voice mail subroutine 234 is called. If more than one 
caller have telephoned the subscriber at more or less 
the same time, they will join separate conferences and 
the variable "call waiting* will be set active (i.e. 

20 true) . 

The loop next tests (at step 269) for #4 being 
entered at the keypad indicating that the subscriber 
wants to initiate an outbound call. If so, an Outbound 

25 Call subroutine 277 is called. The loop next tests (at 
step 273) for #3 being entered at the keypad indicating 
that the two conferences are to be joined together. A 
test is made at step 271 to determine if two conferences 
are active, and, if so, then they are joined at step 272 

30 and an appropriate tone is played at step 272.1. The 
loop also tests for the entry of #6 (at step 273) and #7 
(at step 275) for starting and stopping a recording 
device. This feature allows a party to the conference to 
take a voice memo and store it, preferably as a voice 
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message for the subscriber. Thus, important topics 
Xich are discussed with a caller can be recorded If 
needed, a periodic tone can be easily generated while 
thf parties conversation is being recorded. The 
5 recording task is started at step 276 and stopped at 
step 278. This loop has no explicit exit, but it is 
exited when the Inbound Task for the barger is suspended 
by the Barger Disconnect Task 400. 

,0 One of the advantageous features of the present 

invention is that either the subscriber, or the caller. 

Party on a forwarding leg. can start the voice 
^i! task 700 when they are in telephone 
via the conference with another party so that a joint 
15 message may be left in the subscriber^ voice 

"Is can be very useful in certain situations. For 
example, the subscriber may be in an automobile and may 
^ connected to the system via a cellular telephone^ 
That can be a very inconvenient time, indeed, an unsafe 
2 „ time, to take notes. By allowing the voice mail to be 
started while the parties are in the conference by any 
party, it allows a voice note to be stored which the 
subscriber can then go back and listen to when in a more 
SS* —ion. As has been described, the system 
25 also permits the caller to start the voice mail task 700 
Uee steps 222 and 222M, so that the subscriber need not 
take his or her hands off the automobile wheel in order 
to have the voice mail task 700 started. 

Another advantageous feature of the present 
30 invent is that the subscriber can make ou^ound c alls 
i„ a new conference while speaking with a P«<* » 
another conference. For example, the subscriber while 
peaking with a first party, may decide that they need 
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more information from a second party. The subscriber can 
call the second party in a new conference, speak with 
them, and then either toggle between the two conferences 
(by keying **), or join the two conferences into a 
5 single conference (by keying #3). The Outbound Call 
subroutine 277 on Figure 4b (6) implements this feature. 

In the foregoing description, the various loops 
wait for keys to be pressed in order to invoke 

10 additional features. Voice recognition systems are well 
known, and therefore some practicing the present 
invention may find it useful to have the loops sense not 
only for the operation of keys on a keypad, but also to 
initiate the described functions in response to voice 

15 commands . 

Turning now to Figure 4b (6) , the u Barger NoEntry* 
routine 280, *Start Voice Mail* subroutine 234 and 
*Barger Call Waiting" subroutine 290 are depicted. 

20 

In the Barger NoEntry call processing, the caller 
on the barge-in leg has not entered a PIN as tested at 
step 248 on Figure 4b (4) and, of course, no call was 
waiting to be answered. The party is permitted to enter 

25 voice mail, in that a new conference is set up at step 
281, and voice mail is started at step 282, and added to 
that conference. The Barger Call Waiting routine 290 is 
called followed by step 284 and 285 which loop with the 
call to routine 290. In this loop, a test is made at 

30 step 284 for the entry of 1(1 **" at the keypad of the 
barger 's telephone instrument. If a caller calls in 
while the barger is in active invoice mail, the barger 
will hear two beeps (played by routine 290) and if the 
barger enters ** at the keypad, barger is set active at 
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step 286 before branching to step 287 (the barger toggle 
connector) . 

The Barger Outbound Call routine 277 is also 
depicted on this figure. At step 277.1 a test is made to 
determine if a call destination is selected. The "no* 
leg is showing looping on step 277.1, but it is 
understood that if a valid destination is not selected 
after reasonable opportunity is given to do so, or if 
the barger elects to escape from this function, the 
routine would simply return to its calling point. If a 
valid destination is selected, then, if necessary, the 
destination phone number is looked up at step 277.2 (for 
example, a speed dial number may be used to identify a 
destination) before an outbound channel is seized (step 
277.3) and the number of the destination is dialed (at 
step 277.4). The barger is added to a new conference 
(step 277.5) and the outbound channel is added there as 
well (step 277.6). If the outbound call is answered, as 
is tested at step 277.7, the routine simply returns at 
step 277.11. Otherwise, if busy, or no answer occurs, 
then the barger is switched back to the conference from 
which he came at step 277.8, the outbound call is 
disconnected from the conference, and the call is torn 
down at steps 277.9, and 277.10. 

Turning now to the Barger Call Waiting subroutine 
290, if call waiting is not active (as tested at step 
290.1), the routine merely returns. Otherwise call 
waiting tones are played twice (as tested at step 290.2) 
to the subscriber. For normal call waiting, one type of 
waiting tone is played (at step 290.6), while if the 
caller has indicated that their call is a priority call 
(see steps 220, 221, 220M and 221M) , a different call 
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waiting tone is played at step 290.5. 

The -start Voice Mail* subroutine 234 which • 

depicted on Figure 4b(7>, starts off "'^J* " 
if voice mail is already active * £ see 

nothing further is needed a nH ! If 8 °' 

step 234.7. otherwise a t.T ' SUbr ° Utine at 
. . ucnerwise ' a test ls made at step 234 2 t« 
determine if voice mail is enabled if not t0 
message is played at step 234 3 and th ' 
(returns) at step 234 5 t/ * ^ r ° Utine exits 

the start v«4 w V ° 1Ce mSil " enabled ' then 
the Start Voice Mail Task 700 is called at step 234 4 

before exiting at step 234 5 P *' 4 



* J*" * it is assumed that voice mail is 

the P d s ™ * ? Se r ate Pr ° Vider a ^^e v a 

the PSTN 50 (such a service provider may have a voice 
-il equipment of the type made by Octel, for exea^ 

20 v,ic S e ITT ~* * not to subscribe t0a 

voice mail service and that choice would be stored ,1 

» vo.ee Mi l i. available. the Vo . ce " 

.*«*-« it is idle for tbis subecrlber at ta ;4 7 2 o 3 ° 4 s 

Similarly, if voiee ^ n is availaMe P ^ 

wou ld be pre£erably inforaed of that fa ; t ^ «u« 

^ 234.5, a fter which the subroutine returns at 234.5. 

instead of utilizing „ external voice mail system 

ZZ l Z M V ystem My - emboaied with — "t 

system, if so desired. 
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Turning now to the Paging Task 300, that will now 
be described with reference to Figure 4c. Recall that 
the Paging Task runs concurrently with the Inbound Task 
(see steps 208 and 208M on Figure 4b(D). When the 
Paging Task is started, an outbound channel is seized at 
step 302. The telephone number of the subscriber's 
paging system is dialed at step 304. Appropriate I.D. 
information is output to the pager at step 306 - this 
will preferably include the CLID of the caller (if 
available) so that the pager can display the telephone 
number or other information about the caller on the 
display of the pager. The CLID, if available, can also 
be used to look up information about the caller, such as 
the caller's name, etc., in the database for 
transmission to the subscriber. Thereafter, the paging 
channel can be disconnected at step 308 and the task 
suspended at step 308.1. This processing assumes, of 
course, that the pager is controlled by a typical 
dial-up pager connected via the PSTN 50. That is a 
common way of dealing with the pager, since the pager 
system facilities are often provided by a separate 
company. However, another way of dealing with the pager 
system is to use a direct, dedicated connection between 
system 40 and the pager system, so that instead of 
seizing an outbound channel and dialing the pager 
company via the PSTN, such as shown in steps 302 and 
304, the system would preferably seize the dedicated 
connection to the pager company and output the necessary 
information directly at step 306. Additionally, the 
Pager Task can also be used to instruct a digitized 
speech system to deliver audible pages over speakers 71. 
Indeed, the Inbound Task 200 can start more than one 
instance of the Pager Task 300 so that the subscriber is 
paged both audibly and via a conventional pager device 
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61, if desired. At the same time the Paging Task(s) 300 
is (are) being run. the Forward Leg Task(s) 500 is (are) 
also being run. 



5 The Barger Disconnect Task 400 is shown at Figure 

4d. A test is made at step 402 to see if a disconnect 
which has occurred on the barge in leg 7. If so. the 
barger variable is set inactive (false) at step 404 and 
the call waiting variable is similarly set inactive 

10 (false) at step 406. The subscriber is disconnected from 
the conference at steps 408 and 410. The caller and the 
party on an active forward leg will remain in the 
conference. This is a useful feature. The subscriber may 
barge into a conference and find their secretary and the 

15 caller already engaged in a conversation. The 
subscriber's secretary, in this example, is on a forward 
leg 9, 9'. If the secretary can handle the matter for 
the caller, the subscriber can simply excuse themselves 
from the conference and hang up - the caller and the 

20 secretary on the forward leg remain in communication. 
Before suspending the Barger Disconnect Task at step 
414, the Inbound Task 200 which the subscriber (barger) 
is on is suspended at step 412. 

25 The Forward Leg Task 500 will now be described with 

reference to Figures 4e(l) - 4e(4). The forwarding 
active variable is set at step 502 and then an idle 
outbound channel is seized at step 504. The number of 
the telephone 8 on the forwarding leg 9 is then dialed 

30 at step 506. This may be a number available via the PSTN 
or may be an extension number of a directly connected 
PBX. The forward leg channel is then added to the 
conference at step 508 so that the calling party can 
hear the call progressing (alternatively they can be 
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supplied with generated sounds which may sound like 
normal call processing, such as the rings generated in 
the first loop on Figure 4b(2)). If multiple legs are 
being utilized, then it would probably be preferable to 
either supply the caller with generated sounds or to 
delay adding a forward leg to the conference until the 
forward leg is answered, otherwise hearing multiple legs 
being dialed and/or ringing, more or less 
simultaneously, would not be especially helpful to the 
calling party. In that case, or alternatively, a message 
could be played to the caller informing that the system 
is attempting to contact the subscriber at a number of 
locations . 

The Forward Leg Disconnect task 600 is then started 
at step 510, and, thereafter, the processing proceeds to 
step 512 where a first timer is started, and then to 
step 514, where a test is made to determine whether the 
forward leg call has been answered. If so, the 
processing then continues to the forward routine on 
Figure 4e{2) via connector 540. Otherwise, a test is 
made at step 518 to determine whether the forwarding leg 
is busy and, if not, then a test is made at step 520 to 
determine whether the first timer set at step 512 has 
expired. If the first timer has not timed out, then 
program loops, waiting either for the forward call to 
answer or for the first timer to timeout. If the first 
timer times out, or if a busy condition is detected, 
then a call to the voice mail subroutine 234 is made 
before falling through to step 522, where a test is made 
to determine if voice mail is available. If so, a second 
timer is set at step 528 and answering of the forward 
leg is again tested at step 530 in a small loop with 
block 532 where expiration of the second timer is 
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tested. If it expires, or if the test made at step 522 
fails, then forwarding is set inactive at block 534 to 
remove this forward leg from the conference and to 
disconnect this forward leg channel. The Forward Leg 
Task is thereafter suspended at step 536. Otherwise, if 
the forward leg is answered as tested at step 530, the 
processing goes to the forward routine on Figure 4e(2) 
via connector 540. 

A busy condition can be tested by a number of 
different techniques. For example, the system can be 
listening for the tell-tale busy sound. The Dialogic 
card previously mentioned have such capability. If the 
system is connected to the PSTN via SS-7, then a data 
packet can be returned to the system indicating busy 
without even the need to open an audio channel to the 
number being telephoned. Finally, when the system is 
connected to or with a PBX, the PBX can readily advise 
whether or not an extension is busy. 

Assuming that the forwarding leg call is answered, 
as is tested at steps 514 and 530, the processing 
continues via connector 540 to the flow diagram of 
Figure 4e{2) and to block 541 where a test is performed 
to see if monitoring mode has been enabled. If not, 
further processing is through the forward answer routine 
on Figure 4e(3) via connector 560, after first adding 
the forward leg to the conference as a listener (i.e. in 
full duplex mode) at step 547, stopping the voice mail 
task (at step 548), and testing to determine if the 
barger is active (at step 549). If the barger is not 
active, then call waiting is also reset at step 550. 



monitoring mode has been turned on, for example 
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by the subscriber, then the subscriber is first added to 
the conference as a listener (i.e., in half duplex) at 
step 542 before a loop comprising blocks 543 and 544 is 
entered. In the loop the subscriber can listen to the 

5 caller's interplay with voice mail and make a decision 
regarding whether or not to join the conference which 
the caller is in. The subscriber joins by depressing the 
* key (as tested at step 543), and leaves by depressing 
the # key (as tested at step 544), or, alternatively, by 

10 hanging up. If the subscriber exits by the * key, then 
they are removed from the conference at step 551, the 
forward channel is disconnected at step 552 and call 
forwarding is set inactive at step 553 . The task then 
suspends at step 554. If the subscriber depresses the * 

15 key, then the processing continues via block 546 where a 
joining tone is played before continuing with steps 547, 
548 and 549. 

If the subscriber is going to barge into the call, 
20 then processing continues on Figure 4e{3). The 
processing on the figure is very similar to the 
processing previously described with reference to Figure 
4b(5). There is good reason for this. The processing on 
Figure 4b (5) tests for commands from the subscriber to 
25 enable certain features. The processing on Figure 4e(3) 
test for many of the same commands for the party 
answering a forward leg call. Thus, the processing loops 
in a loop which includes a call to a Forward Leg Call 
Waiting subroutine 590 and steps 562, 566, 568, 569, 
30 570, 573, 575 and 578. 

The party on the forward leg can toggle between 
conferences as tested at steps 562, 562.1, and 563. 
Compared with the corresponding testing made at steps 
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' sce P 562.1). The additional i- « fc 
5 the person on the forward leg. 

Similarly at step 570.1 where the ability to -Join 
conferences by depressing, the # 3 keys is ^^y £T 
the person on the forward leg if th* ^ . 
» Otherwise the processing 0 /Vep s » ~ ~ 

i 1 - m - 1 - " 3 - 575 - ™ 

With the previously described processing ^ • -f 7 

— ^p. 266 . 267 . 26 , 2 j"T^: f 27 : m 2 i r y 

« . 3, I so t 2?6 ' «- loop on rigure 

A test is made at 568 to •» it 
f 0 ™.~* , " the Person on the 

forward leg enters #9 at their _ 
20 cynically h. ,,, keypad. That person would 

typxcally be the subscriber, but could be a third party 
who answered the caller's telephone call, if they Lter 

step 578 determines whether the caller or barger is 
actxve „ neither the caller 2 nor subscriber on Z 

through i- * P ' the P roce ssing falls 

through to step 579 where the forwarding is set 
-actxve, and thereafter, the forwarding task \s 
suspended at step 579.1 



30 



The Forward Outbound Call routine 577 is depicted 
on Figure 4e(4). At step 577 1 a * M • aGP1Cted 
, . . _ p a test is made to 

determme xf a call destination is selected. The -no- 
1«9 i. showing looping on step 577.1, but it is 
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understood that if a valid destination is not selected 
after reasonable opportunity is given to do so or if the 
subscriber elects to escape from this function, the 
routine would simply return to its calling point. If a 
valid destination is selected, then, if necessary, the 
destination phone number is looked up at step 577.2 (for 
example, a speed dial number may be used to identify a 
destination) before an outbound channel is seized (step 
577.3) and the number of the destination is dialed (at 
step 577-4). The person making the outbound call is 
added to a new conference (step 577.5) and the outbound 
channel is added there as well (step 577.6). If the 
outbound call is answered, as is tested at step 577.7, 
the routine simply returns at step 577.11. Otherwise, if 
busy, or no answer occurs, then the party is switched 
back to the conference from which they came at step 
577.8, the outbound call is disconnected from the 
conference, and the call is torn down at steps 577.9 and 
577.10. 

The Forward Call Waiting subroutine 590 is also 
depicted in this figure. If the barger is active (as 
tested at step 591), or if call waiting is not active 
(as tested at step 590.1), the routine merely returns. 
Otherwise call waiting tones are played twice (as tested 
at step 590.2) to the party. For normal call waiting, 
one type of waiting tone is played (at step 590.6), 
while if the caller has indicated that their call is a 
priority call (see steps 220, 221, 220M and 221M) , a 
different call waiting tone is played at step 590.5. 

Turning now to Figure 4f, the Forward Leg 
Disconnect task 600 is now described. This task bears 
some resemblance to the Barger Disconnect Task 400 
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previously described. Here, an initial loop comprises 
two tests, made at steps 602 and 604, instead of one 
test. The test made at step 602 detects whether a 
disconnect has occurred on the forward leg which this 
task is monitoring. The test made at step 604 tests a 
variable -forwarding active- to see whether forwarding 
is active. If it has been set inactive, then the forward 
leg is brought down, i.e., disconnected. This can occur, 
for example, under control of the subscriber on the 
barge-in leg, if the subscriber on the barge-in leg 
satisfies the test at step 266, for example, by 
depressing the keys #8, in which case forwarding leg 
active variable is reset (set inactive). In that way. 
the subscriber on the barge- in leg can cause the 
forwarding leg to disconnect. That can be useful where 
the subscriber wants to make sure they have a private 
conversation with a caller, without fear of having 
someone eavesdropping on a forward leg 9, 9'. Otherwise, 
if a party is on the forward leg, the subscriber is on 
the barge-in leg, and the caller is on the caller leg, a 
three-way (or more) conference will be in place. 

After the loop is exited, forwarding is set 
inactive at step 606 and the leg is removed from the 
channel at 608, disconnected at 610, and the associated 
Forward Leg Task 500 is suspended at 612. Then this task 
suspends itself at 614. 



As previously discussed, Voice Mail Task 700 is 
preferably provided which can attach the members of the 
conference to the subscriber's voice mail system so that 
notes may be taken or so that a message for the 
subscriber may be recorded. The voice mail task 700 is 
described now with reference to Figure 4g. 
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The voice mail system may be either a separate 
stand alone system, for example of the type disclosed in 
U.S. Patent No. 5 , 375, 161 (the disclosure of which is 
hereby incorporated herein by reference) , or an integral 
system. In the present embodiment, it is assumed that 
the present system is connected to the Telephone Call 
handling system disclosed in U.S. Patent No. 5,375,161 
by dedicated connections. However, connections via the 
PSTN 50 may also be used. In either event, the voice 
mail system is controlled by inputting appropriate codes 
into the voice mail system. Assuming for the moment that 
the voice mail system is a separate stand-alone system, 
the voice mail variable is set active at step 702, an 
output channel is seized at step 704, the voice mail 
telephone number is dialed at step 706 and appropriate 
codes to access the subscriber's voice mailbox are 
outputted. The codes may be stored in the previously 
described database. Thereafter, at step 708, the voice 
mail channel is added to the conference, and the voice 
mail disconnect task 800 is then started at 710. Next, a 
voice mail timer is started at block 712 to ensure that 
the voice mailbox is answered within a predetermined 
time period. That test is made by looping at steps 714 
and 716. If the timer expires, the voice mail variable 
is set inactive at step 718 and the task suspends at 
step 722. If the voice mail system answers, as is tested 
at step 714, the processing goes through to a short loop 
at step 720 where a test is made to see if the caller or 
the barger is active. If neither one are active, the 
processing falls through to step 718 where voice mail is 
set inactive and the task is then suspended at step 722. 

The Voice Mail Disconnect task 800 is shown in 
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Figure to x tsst is „ ade mt 

disconnect has occurred on the voice mail leg. Mornal ly 

but ^ " V ° iCe s ^ te » *. disconnect' 

but that could occur, and therefore, a test is made £ 
that event at step 802. More likely, some action win 
set vo.ce mail inactive. i„ which cafie the procea ^ 
will fan through from the test made at step 804 to step 
8 6. 808 and 810. »t step 80*. voice mail set inactive 
if not already done so by some other action. The voice 
mail channel is removed from the conference at step 808 
the voice mail is disconnected at step 8!0. the voice 
mailbox task is suspended at step 812, and the voice 
nail disconnect task suspends itself at step 814. 

The Caller Disconnect Task 900 is shorn, in Figure 
41. This figure is very similar to Figure 4f. and 
therefore, it is not described in detail other than it 
is noted instead of checking a forward leg 9, 9' the 
caller leg 3 is checked. » the caller active variable 
becomes inactive, the caller link is brought down. That 
could occur, for example, by the subscriber entering a 
defined key sequence while in the loop depicted on 
Figure 4b(5, . of course, that would require another test 
in that loop to detect the defined key sequence, and 
then the subscriber would have the ability to cause all 
connections to come down. 

The Timer Task 1000 is depicted in Figure 4 j . This 
task starts a timer at step 1002 to set the timer active 
variable at step 1004. A test is made at step 1006 to 
determine if the timer has expired. if So the 
processing falls through to block 1008 where the 'timer 
variable is set inactive and then the task suspends 
itself at step 1010. 



WO 96/09731 



PCT/US95/12318 



56 

A Record Task 1100 is depicted in Figure 4k. This 
task is called whenever a memo is to be recorded. The 
task starts off by adding itself to the caller's 
conference at step 1102 . Recording begins at step 1104 
and continues until the task is halted, as tested at 
step 1106. When halted, the task stops recording and 
posts the message to the subscriber's voice mail (at 
step 1108) and then suspends (at step 1110) . 

Comparing the functionality of Figures 4a - 4k with 
the system described in Figure 2, those skilled in the 
art will, of course, appreciate that the system 
implementing the flow chart of Figures 4a - 4k is much 
more robust. In Figure 2, provision is made for the 
ability to park the caller and for a parked timer to 
expire. See, for example, steps 38 - 44. In the present 
multitasking embodiment described with reference to 
Figures 4a - 4k, there is no need to explicitly park the 
caller. If the person answering the telephone on the 
forwarding leg hangs up, that brings down the forwarding 
leg, but does not affect the caller on the calling leg 
3. During that time, the Inbound Task would still be 
looping during the loop comprising the steps 220 - 225, 
or the loop comprising steps 217M - 225M. 

Additional Features 

Additional features are envisioned for the 
disclosed system. The hardware environment may include 
the ability to receive, decode and transmit SS-7 
messages, as previously described. The SS-7 facilities 
being implemented in the PSTN can provide messages to 
the system 40 indicating, for example, that a subscriber 
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has turned on their -. 

c.uu lar phone T ta ~T;: £™ 81 • «"* tta. a 

cellular system 80 ZcH ^ SiSD ° nt ° thS 

cellular system 80 =» * " The 

5 informing the system .„ that t he T" '° *° 
fas just signed on to the «"«lar telephone 81 

database of systeT 40 • " 80 " The 

>. 9 er Ta s*s ^Teert:\e US :L t t °ea determine *~ ~" 
caller's call , in addi-/ " resp ° nse to a 

" page, are to be ^ £ " — those 

500 need to be started 'in ^ *- T * Bk ° 

addition to aete^l to r r°r e * " °" Um " U (iD 
forward leg calls^re ! I telspb ™ addresses the 

■nay be stored as TLZ f addreSSed > " information 
« as previously ZuZT^Tj" 

message noted above. can be u^T' "* " 
Preprogrammed schedule L . ! ° Verride the 

weekdays the or^J™ T sample, at 10 = 00 A.M. 

subscriber is f„ Ms Th " thinl * S ' 

reactions might be? situ «"- Possible 

(1) Do nothing; 

(2) Switch Forwarding Tasks to the cellular 
telephone number, unless m a u cellular 

' niess the subscriber *.v 

system; *j-«er is on the 

(3) If the subscriber is on the sv^m 

a Call waiting function (preferably ! T 
WaiH „„ * »*»«rerat>iy a priority call 

waxtmg function) and advise the subscriber in 
conference facility n, a f- -u • ^^cricer m a new 

is where the cell , automobile (assuming that 

-y 1 leavL the " telSPh0ne ln 9UeS " 0n " l0Cated » 
y be leaving the premises without their permission- 
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(4) During preprogrammed time periods, 
telephone the subscriber at one or more preprogrammed 
telephone numbers using the Forward Leg Tasks to tell 
them (using the digitized speech capabilities previously 
described) in a conference facility that their 
automobile (assuming that is where the cellular 
telephone in question is located) may be leaving the 
premises without their permission. 

The SS-7 messaging service can also be used to 
advise the system 40 when the subscriber powers down the 
cellular telephone. The SS-7 signally specification does 
not explicitly provide a power down message, but the 
system 40 can learn about a power down situation by 
periodically sending a packet polling the cellular 
system about the status of the cellular telephone. If 
the cellular phone is no longer available, the system 40 
will know that a power down must have occurred. The 
database preferably tells the system how to react. For 
example, then the system may revert back to the 
subscriber ' s preprogrammed schedule . 

Those skilled in the art will appreciate that in 
the described system 40, when the subscriber is barging 
into a call, that they are recognized by the system as 
the subscriber and are given certain privileges. For 
example, in the disclosed embodiment. only the 
subscriber can force the forward leg(s) to disconnect by 
entering a code (#8) - see steps 266 and 267 on Figure 
4b (5). It is felt that consumers resist having to always 
use PINs and therefore the disclosed system does not 
require a PIN on the forwarding leg - indeed it is felt 
that it would often be dysfunctional. However, one 
modification which probably would be accepted in the 
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marketplace would be to include the ability for the 
subscriber to enter an optional PIN on a forwarding leg. 
Thus, after the party answering the telephone on a 
forwarding leg enters the valid PIN for the subscriber 
who is being sought, they would be given subscriber 
status (i.e. the ability to force other forwarding legs 
to disconnect) . Indeed, the monitoring mode could be 
disabled on the forward leg until the PIN were entered. 

Another modification which might be desirable would 
be to automatically give subscriber status to persons 
answering the telephone at certain forwarding numbers 
(and perhaps only at certain times) , as stored in the 
database. For example, if a call is forwarded to the 
telephone 76 on the subscriber's desk at their office, 
the database could tell the system to assume that the 
party answering that telephone is the subscriber and to 
give them subscriber status. On the other hand, if a 
call is forwarded to the telephone 16 at the 
subscriber's home, the database could tell the system to 
assume that the party answering that telephone is not 
the subscriber unless they enter a PIN. These 
assumptions could be, of course, reversed, by making 
appropriate entries in the database. Similarly, 
subscriber status could be automatically granted if the 
forward leg call is answered within a certain time limit 
or within a certain number of rings. Thus, it would be 
useful where the forward leg call goes to a subscriber's 
office and the subscriber has a no-answer forwarding 
featured turned on to forward the call to their 
secretary, say after two unanswered rings. If the 
subscriber is not in their office and the call is 
forwarded to their secretary after two rings, the 
subscriber status could be disabled by the third ring 
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(at the secretary's desk). 

The changes needed to the disclosed flow charts to 
implement such capabilities are not extensive. For 
example, the forward leg on Figure 4e(3) could be 
enlarged to include a test for a PIN similar to the 
testing done at steps 248, 252 and 249 on Figure 4b(4) . 
Thus, a step similar to step 252 would a test for a 
valid subscriber PIN, and to set a "subscriber on 
forwarding leg- variable true if detected (of course, 
the database could set that variable true without the 
need of the answeree to enter a PIN) . The loop on Figure 
4e(3) would then test additionally for the -subscriber 
on forwarding leg" variable at steps 562.1 and 570. 

The processing on Figures 2b (5) and 5e(3) allow the 
subscriber to toggle between two conferences or to join 
two conferences together. Those skilled in the art 
realize that it is relatively straight forward to allow 
additional conferences to be set up. Indeed, since the 
outbound calling feature implemented by subroutines 277 
and 577 require an additional conference to make an 
outbound call, it would be desirable to allow more than 
two conferences to be set up. The problem which arises 
is that humans are not particularly adept at keeping 
track of more than two conferences. Thus, while the 
toggling feature can easily be set up conceptually to 
stack the conferences, or arrange them in a ring, and to 
merely proceed to the next conference in the stack, or 
the ring, when the subscriber enters the ** keys, the 
problem is that a human is apt to forget who is in which 
conference. There is a possible solution to this 
problem. The system should be able to identify who, and 
where, and keep track of that information for the 
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subscriber. For example, using CLID and a database the 
system might know the name (or some other identifying 
feature) of a caller. At least the caller's telephone 
number should be known. Similarly with outbound calls ~ 
since the system preferably looks up the destination 
phone number in a database (see step 277.2 or 577.2), 
then the system also has identifying information 
available to it about outbound calls as well. This 
identifying information can be supplied to the 
subscriber as the caller switches (toggles) among active 
conferences. When switching conferences, the system 
plays a joining tone in the switched-to conference at 
steps 265.1 and 565.1. At more or less the same time the 
system could also generate sounds, or speech, telling 
the subscriber which conference is being entered. For 
example, the system might play -Home", "Your Secretary-, 
or -Ms. Anderson- as the subscriber switches. The 
messages might include a conference number, thusly: 
"One, Home-, "Two, Your Secretary-, and, -Three, Ms. 
Anderson-. The conference joining feature (steps 270. 
271, 272 and 272.1 or 570, 570.1, 571, 572 and 572.1) 
may be modified to play the identifying information for 
each active conference, and ask the subscriber which 
conferences should be joined together. For example, if 
three conferences were active, upon entering the #3 keys 
the system might respond as follows: 

(1) By saying: "There are three active conferences 
which may be joined together. Should "Home- (or "One 
Home-) be joined? - 

(2) The system would then wait for the subscriber 
to enter a * key (meaning yes), or a # key (meaning no). 
The testing would be done in a loop similar to steps 243 
and 244. 

(3) Next the system might generate: "Thank you. 
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Should "Your Secretary" (or -Two Your Secretary") be 
joined? 

(4) Step (2) above is then repeated for conference 
number two . 

5 (5) Step (3) is then repeated for conference number 

three . 

(6) Step (2) is again repeated for the last 
conference . 

(7) The conferences for which the subscriber 
10 entered the «yes- key (i.e., the * key in this example), 

would then be joined with a joining tone being played as 
at steps 272.1 and 572.1. 

Having described a preferred embodiment of the 
15 invention, further modification and changes may now 
suggest themselves to those skilled in the art. The 
invention, therefore, is not to be limited to the 
disclosed embodiments as many changes and modifications 
will doubtless occur. Rather, the invention is to be 
20 defined by the scope of the accompanying claims. 
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APPENDIX I 

SOURCE CODE LISTING OF MAIN PROGRAM WRITTEN IN VOS 



# MAIN - main program 
# 

# This main task will spawn tasks for 12 time slots 
an JSMSSr^ff ^ SyStSm ' ^ * ~*2fg" 
ItiboS^^t^T Sl0t ^ SS96/SB96 - UP to four 

f 2™™ +BARGER+CALLIN handle inbound calls 
calls 00T handlS barger Vitiated outbound 



! SJS?? handles outbound forwarding calls 

S ^?? T hand if S out bound paging calls 

# VMAIL handles outbound voice mail calls 

ft 

a D12? e on S p S E^L e , d COnf i9uration is an SS96/SB96 cabled to 

PEB4 Cabled ' t0 1,11101 network cards on PEB2 and 
# 

# 



dec 

definw™ "^d.inc" # bring in library 
definTwon? ' fflobal - inc " * b ™9 *» °ur global 



var code: 16 ; 
calls 

var test: 10, key: 3 
var vpline:3 ; 



var net line 
var subs: 3 
var call: 3 
var conf:3 



var vppids [GDIDBGN . . PAGEEND] : 3 
task controlling a D121 line 

var vplines [GDIDBGN. .PAGEEND] : 3 
number D121 line connected to 

var net lines [NETBGN. -NETEND] :3 



# return value from C library 

; # diagnostic commands 

# voice processor line number 

# network line number 

# subscriber number 

# call number 

# conference number 



# pid for each 

# holds netline 

# holds vpline 
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number network line connected to 

var altlines [ALTBGN. .ALTEND] :3 ; # holds vpline 
number alternate netline connected to 

var confers [ 1 . . CONFMAX] : 3 ; # conference active 
flags 

var line: 3 ; # needed for scr__stat 

end 

program 

# Initializations 

# make sure we have enough global memory allocated 
in INIT.DEF 

glb_set (GLOBALS-1, "123456789") ; 

if (glb_get (GLOBALS-1) strneq "123456789") 

voslog ( " SERIOUS ERROR: not enough global memory 
allocated") ; 
endif 

# initialize active global variables to null 
for (code =0; code < GLOBALS; code++) 

glb_se t ( c ode , " " ) ; 
endf or 

glb_set (STRATUS_PRE, "M*81234567 ■ ) ; # MF - PEB4 

glb_set (STRATUS_PST, "#") ; # MF - PEB4 

subs = 0 ; # subscriber #1 (Bob 

Fuller) 

glb_set(PSTN_PRE+subs, "T") ; # DTMF - PEB2 

glb_set (PSTN_PST+subs, "") ; # DTMF - PEB2 

glb_set (CALLER_NUMB+subs, "T206*654*5783# " ) ; 
glb_set (PAGER+subs, "6804910") ; # Bob Fuller's 
pager 

glb_set ( PRGRM_PIN+subs , "123") ; 
glb_.se t ( BARGE_PIN+subs , " * " ) ; 

gib set (CALLER_DID+subs, "5832000") ; # DTMF 
glblset (BARGE_DID+subs, "6545783") ; # DTMF 

glb_set(FORWARD+subs, "5832000") ; # DTMF 
glb_set(VOICEMAIL+subs, "5832000") ; # DTMF 

subs = 1 ; # subscriber #2 (Ron 

Brooks) 

glb.settPSTN.PRE+subs, "T") ; # DTMF - PEB2 

glb_set(PSTN_PST+subs, ■") ; # DTMF - PEB2 

glb_set(CALLER_NUMB+subs, "T206*654*5781#" ) ; 
glb_set(PAGER+subs, "9171284") ; # Ron Brooks' 
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pager 

glb_set ( PRGRM_PIN+subs , 
glb_set (BARGE_PIN+subs , 
glb_set (CALLER_DID+subs 
glb_set ( BARGE_DID+ subs , 
glb_set (FORWARD+subs , ■ 
glb_set (VOICEMAIL+subs , 

svibs = 2 ; 
Brown) 



"123") ; 
n*i. j 

. "6545780") ; # dtmf 

"6545781") ; # DTMF 

6545780") ; # DTMF 

"6545780") ; # DTMF 

# subscriber #3 (Jim 



glb_set 
glb.se t 
glb_set 
glb_set 
fast pager 
glb_set 
glb_set 
glb_set 
glb__set 
glb_set 
glb_set 



(PSTN_PRE+subs, "T") ; # DTMF - PEB2 

(PSTN_PST+subs, "") ; # DTMF - PEB2 

(CALLER_NUMB+subs, "T20-6*654*5785# " ) • 
(PAGER+subs, "9916101") ; # ji m Brown's 



( PRGRM_PIN+subs , "123") ; 
( BARGE_PIN+ subs , " * " ) ; 
(CALLER_DID+subs, "6541022") 
(BARGE__DID+subs, "6545785") 
(FORWARD* subs, "6541022") ; 
(VOICEMAIL+subs, "6541022") 



# DTMF 

# DTMF 
# DTMF 

# DTMF 



subs = 3 ; 
Kransler) 



# subscriber #4 (Dan 



gib. 
gib_ 
gib. 
gib. 
Kransler 

gib. 
gib_ 

glb_ 
glb_ 

gib_ 
gib_ 



.set (PSTN_PRE+subs, "T") ; # DTMF 

.set (PSTN_PST+subs, " " ) ; # DTMF 

set (CALLER__NUMB+subs, "T206*654*1003 # " ) 



- PEB2 

- PEB2 



■9972575") 



') 



.set (PAGER+subs , 
' s fast pager 
.set (PRGRM_PIN+subs, 
.set (BARGE_PIN+subs, 
.set (CALLER^ DID+subs , 
set (BARGE_DID+subs, 
.set (FORWARD+ subs, "6541000") ; 
set (VOICEMAIL+subs, "6541000") 



# Dan 



"123' 
• * « ) 

"6541000") 
6541003") 



# 

# 

DTMF 

# DTMF 



DTMF 
DTMF 



subs = 4 
Brooks ) 



# subscriber #5 (Ron 



glb_set (PSTN_PRE+subs, "T81234567" ) ; # DTMF - 

PEB2 

glb_set (PSTN_PST+subs, ■■) ; # DTMF - PEB2 

glb_set (CALLER_NUMB+subs, "T206*654*521i Z " ) • 
glb_set (PAGER+subs, "9171284") ; # Ron Brooks' 
pager 

glb_set { PRGRM_PIN+subs , " 123 " ) ; 
glb_set (BARGE_PIN+subs , " * " ) • 

glb_set (CALLER_DID+subs, "6545210") ; # DTMF 
glb_set (BARGE_DID+subs, "6545211") ; # DTMF 
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glb_set (FORWARD+subs. "6545780") ; # DTMF 
glb_set (VOICEMAIL+subs, "6545780") ; # DTMF 

subs = 5 ; # subscriber #6 (Test 

call) 

glb_set (PSTN_PRE+SUbs, "T") ; # DTMF - PEB2 

glb_set (PSTN_PST+subs, "") ; # DTMF - PEB2 

glb_set (CALLER_NUMB+subs , "T206*654*5798#" ) ; 
gib set (PAGER+subs, "") ; # no pager 

glblset ( PRGRM_PIN+subs , " 123 ■ ) ; 
glb_set(BARGE_PIN+subs, "*") ; 

glb_set(CALLER_DID+SUbs, "6545799") ; # DTMF 
glb__set(BARGE_DID+subs, "6545798") ; # DTMF 

glb_set (FORWARD+subs, "4543864") ; # DTMF 
glb_set (VOICEMAIL+subs, "3927698") ; # DTMF 

subs = 6 ; # subscriber #7 (Ron 

Brooks ) 

glb_set (PSTN_PRE+subs. "T") ; # DTMF - PEB2 

glb_set (PSTN_PST+subs. ■") ; # DTMF - PEB2 

glb_set(CALLER_NUMB+subs, n T206*654*5787# " ) ; 

glb_set (PAGER+subs, "9171284") ; # Ron Brooks' 
pager 

glb_s e t ( PRGRM_PIN+ subs , "123") ; 
glb_set (BARGE_PIN+subs , ■ * " ) ; 

glb_set (CALLER_DID+subs, "6545786") ; # DTMF 
glb_set (BARGE_DID+subs, "6545787") ; # DTMF 

glb_set (FORWARD+subs, "3927698") ; # DTMF 
glb_set (VOICEMAIL+subs , "6545780") ; # DTMF 

for (subs - 0; subs < SUBSMAX; subs + +) 

# try open programming PIN file 

code = fil_open( "program" &subs&" .nmb" , "rs") ; 

# check if file opened 
if (code >= 0) 

# seek start of file 

f il_seek(code, 0, 0) ; 

# set programming PIN from file 

glb_set (PRGRM_PIN+subs, f il„getline (code) ) 



# close file 
f il_close (code) ; 
endif 

# try open barge in PIN file 

code = f il_open( "bargein-'&subs^ " .nmb", "rs") 
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# check if file opened 
if (code >= 0) 

# seek start of file 
fil_seek(code, 0, 0) ; 

# set barge in PIN from file 

glb_set (BARGE_PIN+subs, f il_get line (code) ) 



# close file 
fil_close(code) ; 

endif 

# try open forwarding number file 

code = fil_open( " forward" ksubsSc" .nrnb B , "rs") ; 

# check if file opened 
if (code >= 0) 

# seek start of file 
fil_seek(code, 0, 0) ; 

# set forwarding number from file 
glb_set (FORWARD+subs, f il_get I ine (code) ) ; 

# close file 
fil_close (code) ; 

endif 

# try open voice mail number file 

code = f il_open( "vmail ,, &subs& n ,nmb M , "rs") ; 

# check if file opened 
if (code >= 0) 

# seek start of file 
fil_seek(code, 0, 0) ; 

# set voice mail number from file 
glb_set (VOICEMAIL+subs, f il_gc tline (code) ) 



# close file 
fil_close (code) ; 
endif 
endf or 

# 



# reset the SS96 to load parameters frcrn datmod.par 

file 
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voslog ( " Sreset ( ) returns " fcSreset ( ) ) ; 

# display the SS96 conference counts 
voslog ( "Conferences : " fcSgetmode ( 8 ) ) 

# mark all vp lines as free 

for (vpline = GDIDBGN ; vpline <= PAGEEND ; 
vpline++) 

if ((code - Ssetsig (vpline, SSAS_ONHOOK, 
SSAL_N0)) <> 0) 

voslog (" Ssetsig ( w &vpline&" ) code "&code&" 

error") ; 

endif 

vplines [vpline 1 = 0 ; 
endf or 

# make our pid public 
glb_set(MAINPID, getpidO) ; 

# initialize go-ahead flag 
glb_set(MAINFLG, getpidO) ; 

# spawn line tasks to control D121 vplines 
for (vpline = GDIDBGN ; vpline <= PAGEEND ; 

vpline++) 

switch (vpline) 





case 


GDIDBGN: 


spawna { "ge tdid 


" , vpline) ; 


7 


case 


GDIDBGN+1: 


spawna ( "g<_ 


tdid" , vpline) 




case 


GDIDBGN +2 : 


spawna( "getdid" , vpline) 


f 


case 


GDIDEND: 


spawna ( •' ge tdid 


, vpline) ; 




case 


FWRDBGN: 


spawna ( "forward" , vpline) ; 




case 


FWRDBGN+1: 


spawna ( " f c 


rward" , 


vpline) 


i 








case 


FWRDBGN+2 : 


spawna ( ■ forward" , 


vpline) 


i 










case 


FWRDEND: 


spawna ( " f orwar 


I" , vpline) ; 




case 


MAILBGN: 


spawna ( "vmail " , 


vpline) ; 




case 


MAILEND: 


spawna ( "vmail " , 


vpline) ; 




case 


PAGEBGN: 


spawna ( "page M , 


vpline) ; 




case 


PAGEEND : 


spawna ( "page" , 


vpline) ; 


default: 










endswitch 








# get 


: PID of task 


for this line 





vppids [vpline] = msg_get(2) 
endf or 
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# change flag to -go ahead" value 
glb_set (MAINFLG, 99) ; 

# initialize signal alerting on network channels 
for (netline = NETBGN ; netline <= NETEND • 

netlme++) u » 

# set onhook with signal alerting enabled 
SSAL.YES)) <J ( S? = Ssetsi ^< netl ine, SSAS.ONHOOK, 
error") ; voslo 9< "Ssetsig ( "Scnetline&- ) code "&code&» 

endif 

if S ?^^ fer ? nC i ng atteil ^tion and suppression 
SBSU_SLIGHT) ) <> 0) = Scnfparm < netli **< SBAT_N0NE, 

" & code & " ^^^t'S^ft^C-toetlinefc-) code 
endif 

netlines [netline] = 0 ; 
endfor 

channels 1 ^ 411 " 6 Signal alerti »ST on alternate network 
netli1? e r ++ ( ) netline = ALTBGN ; netline <= ALTEND ; 

# set onhook with signal alerting disabled 
SSAL_N0) ) <> ( (Sr = Ssetsi ^( ne tline, SSAS.ONHOOK, 
error") • voslo S ( "Ssetsig ( »&netline&" ) code "&code&" 

'endif 

# set conferencing attenuation and suppression 
„„„ 11 < (code = Scnfparm (netline, SEAT NONE 
SBSU_SLIGHT) ) <> 0) eo/ti_«<j«£., 

voslog("Scnfparm("&netline&») code 
"&code&" error") ; 

endif 

altlines [netline] = 0 ; 
endfor 

# draw initial debug screen display 
scr_init() ; 

# Main loop 
for ( ; ; ) 

# check event queue on SS96 
code = Sgetevt(O) ; 

™ - s " itch < substr(code, 1, 1)) # process based 

on first character 
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case "E" : # valid event 

netline = substr (code, 3, 2) ; # get line 

event occured ~ itch(mjbBtr (code# 5 , 2>) # process based 

on type of event 

case SSEVT_SIGNAL: # signal bit changed 
# event on network line ? 
if ( (netline >= NETBGN) and (netlxne 

<= NETEND) ) V oslog(-SS Event: "fccode) ; 

# check received bit state 
if (substr (code, 7,1) eq 1) 

# check for existing call on 

netline if (netlines [net line] <> 0) 

# existing call - assume 
this is answer supervision # ^ f orwarding 

task vpline ±f ( {netlineB [netline] 

>= FWRDBGN) and (netlines [netline] <= ^J™^ 

subscribers and calls for call progress active on 
netline for (subs _ 0 ; subs 

< SUBSMAX; subs ++ ) for (c&n = Q; 

call < FWRDMAX; call++) 

(g lb_get(FWRDlCPA+SUBSMAX*call+subs) eq netline) 
abort possible caller's task sc_play (e.g. ringing) 
sc.abort (glb_get (CALLlACT+SUBSMAX'call+subs) ) ; 
voslog ( " sc.abort ( " &glb_get (CALLlACT + SUBSMAX*call+su 
bs)&") n ) ; 

# 

abort forwarding call progress analysis 

sc_abort (netlines [netline] ) ; 

voslog ( "sc_abort ( «&netlines [netline] &" ) ■ ) ; 

# 

request answer supervision be returned to caller 
glb_set(CALLlANS+SUBSMAX*call+subs, vpline) 
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endfor 
endfor 
endif 

else 

# new incoming call if 
signaling changed to off hook (ring) 

# Find a free inbound 

vpline, if available 

for (vpline = GDIDBGN; 
(vpline <= GDIDEND) and (vplines [vpline] <> 0) ; 
vpline++) 

endfor 

if (vpline > GDIDEND) 
voslog ( " ERROR : no 



free inbound vpline") 



else 

# free vpline found 

# mark lines as busy 
vplines [vpline] = 

netlines [netline] = 



# inform GETDID task 



netline ; 
vpline ; 

what vpline to use 

if ( (code = 
msg_put (vppids [vpline] , vpline)) <> 0) 

voslog 

( "msg_put ( "fcvppids [vpline] & M , "Scvplinefc") code "&code&" 
error " ) ; 

endif 

# inform GETDID task 

what netline to process 

if ( (code = 
msg_put (vppids [vpline] , netline)) <> 0) 

voslog 

( •msg_put ( "fcvppids [vpline] &" , "&netline& n ) code "&code& M 
error w ) ; 

endif 

# inform GETDID task 

the call direction to process 

if ((code = 

msg_put (vppids [vpline] # "In")) <> 0) 

voslog 

( 'msg j>ut("&vppids[ vpline] In) code "ficcodefic" error") ; 

endif 
endif 
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endif 
endif 

else 

# event on alternate network line 

if ( (netline >= ALTBGN) and 
(netline <= ALTEND) ) ' 

voslog("SS Event: "&code) ; 
# check received bit state 
if (substr(code,7,l) eq 1) 
# check for existing 

call on alternate netline 

0) if (altlines [netline] <> 

. . # existing call - 

assume this is answer supervision 

* j. _ , # check for 

forwarding task vpline 

ii a FwraEND)? etline] >= FWRDBGN) Altlines [netline) 

!_ . , , # look through 

subscribers and call for call progress active on netline 

subs < SUBSMAX; subs++) f ° r <SUbs = 0; 

0; call < FWRDMAX; call++) f ° r <Ca11 

(glb_get(FWRDlCPA+SUBSMAX*call+subs) eq netline) lf 

abort possible caller's task sc_play (e.g. ringing) 

sc_abort (glb_get (CALLlACT+SUBSMAX*call+subs ) ) ; 

voslog( -sc_abort ( "&glb_get (CALLlACT+SUBSMAX*call+su 
bs)&")") ; 



abort forwarding call progress analysis 

sc_abort (altlines [netline] ) ; 

voslog ( "sc_abort ( "&altlines [netline] &" ) " ) ; 



request answer supervision be returned to caller 
glb_set (CALLlANS+SUBSMAX*call+subs, vpline) ; 



# 



endif 
endf or 
endf or 
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endif 
endif 
endif 

else 

mrmt . . _ , voslog ( "ERROR: "&code&" - 

event not on network line") ; v.«« B oe 

endif 
endif 

overflow ° aSe SSEVT - SBOVE RFLOW: # conference 

voslogCss Event: "&code&" - 
conference overflow" ) ; 

completed C " e SSEVT - FLIPD ONE= # flip command 

voslog ("SS Event: "&code&" - flits 
command completed") ; Aip 

detected SSEVT - RECVWINK : # inbound wink 

wink detected", , VOslo *<" SS " & code & » - inbound 

detected C * Se SSEVT - RECVFLASH : # inbound flash 

flash detected", ; V ° Sl ° g( " SS "^ode & " - inbound 

expired ° m SSEVT - TIME 0 UT ' # line's timer 

voslog ("SS Event: "&code&" - line's 
timer expired") ; A;Lne s 

default: # unexpected event 

event") , voslog ( "ERROR: "&code&" - unexpected 

endswitch 

case "N" : # no event found 
if (kb_qsize() > 0) 
key = kb_get() ; 
switch (key) 

case "s": # SmartSwitch only 
■ r u voslog ( "ERROR: SS 

"fcsubstr (1000+test, 2 , 3) &» : "fcSstatus (test) ) , 

test = 0 
default: 

if ((key >= 0) and (key <= 9)) 
test = 10*test + key ; 
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else 

test = 0 ; 

end 
endswitch 

end 

case "X": # error 

default: # error - should never happen 

voslog ( "ERROR: SgetevtO returned error = 

"&code) ; 

endswitch 

# Check for messages from line task 

code = msg_get(0) ; # don't wait if message 

not pending 

switch (substr (code, 1, D J 

case "0" : # allocate and start an outbound 

CALLER task „ . „ „«. 

call = substr (code, 2, 1) ; # get 

message call number „ „ 

a netline = substr (code, 3, 2) ; # get 

message netline number 

subs = substr (code, 5, 99) ; # get 

message subscriber number ... K1 . 

ro a Find a free inbound vpixne, if available 

for (vpline = GDIDBGN; (vpline <= GDIDEND) 

and (vplines [vpline] <> 0); vpline++) 

endfor 

if (vpline > GDIDEND) 

voslog ("ERROR: no free outbound 

vpline") ; . f ( (code = msg _p Ut (mS g_^id( ) , "0- 

N0 " n K> 0) voslog ("msg_put("&msg_pid ()&", 0- 

NO) code "&code&" error") ; 

endif 

else 

# free vpline found 

# mark lines as busy 
vplines [vpline] = netline ; 

if ( (netline >= NETBGN) and (netline 

<= NETEND) ) netlines [netline] = vpline ; 

else 

if ((netline >= ALTBGN) and 
(netline <= ALTEND) ) altlines tne tline] = vpline ; 

else , 

vos log ( " ERROR : invalid 
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outbound net line "fcnetline) ; 

endif 
endif 

use # inforro GETDID tas * what vpline to 

vpline)) <> 0) lf U ° 0de * ms " ut <vppids [vpline], 

ine] & ", " & vpline & ") cod^^^:,^ 1 *- ^ 

endif 

use # inform GETDID task what netline to 

netline)) <> 0) ±f ( (C ° de = ms S-Put (vppids [vpline] , 

ineU", » & netline & -> co* ^^.^^ 

endif ' ' 

use # inform GETDID task wha t direction to 

"Out")) <> 0) ±f <(code = °«sr-Put (vppids [vpline], 

ine] & -,0ut) code ^code^ errorT^' ( " &v W> ids ^ 

endif 

to use (when dir is "Sut™ GETDID t&Sk What subs criber 
subs)) <> 0) ±f ((code = ™sg_put (vppids [vpline], 

±».]*-. •*«*.*■> code .^^<" , ^.V". fiVPPid " [VPl 

endif 

(when dir is -Out') *" f ° r * GETDID task what cal1 to 
call)) <> 0) lf ((C ° de = ms S-J? ut (vppids [vpline], 

ine] & -,- &C all & .) code - , ^^^V '.* Wppid - Iwpl 

endif 

# reply to requesting task 
■0" & vpline>) <> 0) ((C ° de = ms " ut <™sg-Pid(), 

•*vpline & ») code ^code^erVo^f Ut ( "^-^ > , 0 

endif 
endif 
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case "F": # allocate and start a "forwarding" 
vp line task 

call « subs tr (code, 2, 1) ; # get 
message call number 

subs = substr(code, 3, 99) ; # get 
message subscriber number 

s if ((call < 0) or (call >= CALLMAX) ) 

voslog ( " ERROR : invalid call number 
"&call&" message received") ; 
else 

if ((subs < 0) or (subs >= SUBSMAX) ) 
voslog ( "ERROR: invalid subscriber 
number "fcsubsfc" message received") ; 

else 

# Find a free "forwarding" 

vp line, if available 

^ for (vpline = FWRDBGN; (vpline <= 

FWRDEND) and (vplines [vpline] <> 0); vpline++) 

endfor 

if (vpline > FWRDEND) 

voslog ("ERROR: no free 

forwarding vpline") ; 

else 

# free vpline found - mark it 
as busy vplines [vpline] = vpline ; 

# inform requesting task what 

vpline was assigned 

if ((code = 

msg_put<msg_pid(), "F"&vpline)) <> 0) 

voslog ( "msg_put 
("S«msg_pid()& M ,F M &vpline&") code "&code&" error") ; 

endif 

# inform FORWARD task what 

vpline to use . 

if ( (code = 

msg_put (vppids [vpline] , vpline)) <> 0) 

voslog ( "msg__put 

( "&vppids [vpline] &" , "&vpline&" ) code "&code&" error") ; 

endif 

# inform FORWARD task of 

related subscriber number 

if ( (code = 
msg^ut (vppids [vpline], subs)) <>J)^ ^ 

( "&vppids [vpline] &", "&subs&") code "&code&" error") ; 

endif 



WO 9O09731 PCI7US95/12318 

77 

# inform FORWARD task of 

related call number 

if ( (code = 
msg_put (vppids[vpline] , call)) <> 0) 

voslog ( "msg_put 
( "frvppids [vpline] &" , "&call&" ) code "&code&" error" ) ; 

endif 
endif 
endif 
endif 

case "V: # allocate and start a "voice mail" 
vpline task 

call = substr (code, 2, 1) ; # get 

message call number 

subs = substr (code, 3, 99) ; # get 
message subscriber number 

if ((call < 0) or (call >= CALLMAX) ) 

voslog ( "ERROR: invalid call number 
"&call&" message received") ; 

else 

if ((subs < 0) or (subs >= SUBSMAX) ) 
voslog ( "ERROR: invalid subscriber 
number "tsubsfc" message received") ; 

else 

# Find a free "voice mail" 

vpline, if available 

for (vpline = MAILBGN; (vpline <= 
MAILEND) and (vplines [vpline] <> 0); vpline++) 

endf or 

if (vpline > MAILEND) 

voslog ( "ERROR: no free voice 

mail vpline") ; 

else 

# free vpline found - mark it 

as busy 

vplines [vpline] = vpline ; 

# inform requesting task what 

vpline was assigned 

if ( (code = 
msg_put (msg_pid ( ) , "V&vpline) ) <> 0) 

voslog ( "msg_put 
( "&msg_pid( ) &" , V"&vpline&" ) code "&code&" error") ; 

endif 

# inform VMAIL task what 

vpline to use 

if ( (code = 

msg_put (vppids [vpline] , vpline)) <> 0) 

voslog ( ,, msg_put 
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< "&vppids[ vpline ]&", H &vpline&") code "&code&" error") ; 

endif 

# inform VMAIL task of 

related subscriber number 

if ((code = 
msg_put (vppids[vpline] , subs)) <> 0) 

voslog ( "msg_put 
("&vppids [vpline] &", "&subs&") code "^codeS" error") • 

endif 

# inform VMAIL task of 

related call number 

if ( (code = 
msg_put (vppidstvpline] , call)) <> 0) 

voslog ( "msg_put 
("fcvppids [vpline] &", "fccallt") code "&code&" error") ; 

endif 
endif 
endif 
endif 

case "P": # allocate and start a "paging" 
vpline task 

subs = subs tr (code, 2, 99) ? # get 
message subscriber number 

if ((subs < 0) or (subs >= SUBSMAX) ) 
voslog ( " ERROR : invalid subscriber 
number "&subs&" message received") ; 

else 

# Find a free "paging" vpline, if 

available 

for (vpline = PAGEBGN; (vpline <= 
PAGEEND) and (vplines [vpline] <> 0); vpline++) 

endf or 

if (vpline > PAGEEND) 

voslog ("ERROR: no free paging 

vpline") ; 

else 

# free vpline found - mark it as 



busy 

vpline was assigned 

"P"&vpline) ) <> 0) 

voslog ( "msg_put ( " &msg_pid 
()&" , P"&vpline&" ) code "&code&" error") ; 

endif 



vplines [vpline] = vpline ; 

# inform requesting task what 

if ((code = msg_put (msg_pid{ ) , 
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# inform PAGE task what vpline to 

use 

if ( (code = 
msg_put (vppids [vpline] , vpline)) <> 0) 

voslog ( "msg_put ( "fcvppids 
[vpline] &", "&vpline&" ) code "&code&" error") • 

endif 

# inform PAGE task of related 

subscriber number 

if ( (code = 
msg_put (vppids [vpline] , subs) ) <> 0) 

r , . , voslog Cmsg_put( n &vppids 

[vpline] "&subs&° ) code "&code&" ' error" ) • 

endif 
endif 
endif 

case "N": # allocate netline 

vpline = subs tr (code, 2, 99) ; # get 
message vpline 

# Find a free netline, if available - 
search from back to front 

for (netline = NETEND; (netline >= NETBGN) 
and (netlines [netline] <> 0); netline — ) 
endf or 

if (netline < NETBGN) 

voslog ("ERROR: no free netline to 

allocate") ; 

mmsy _ if ((code = msg_put(msg_pid() , "N- 

NO") ) <> 0) 

voslog ( M msg_put ( • &msg_pid ( ) & " f N- 
NO) code "&code&" error") ; 

endif 

else 

netlines [netline] = vpline ; # mark 

network line busy 

vplines [vpline] = netline ; # 
update vpline connection data 

# reply to requesting task 

if ((code = msg_put (msg_pid ( ) , n N- 

OK") ) <> 0) 

voslog ( M msg_put ( n &msg_pid ()&\N- 
OK) code "&code& M error") ; 

endif 

# send message to inform task of 

netline allocated 

if {(code = msg_put (msg_pid( ) , 
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netline)) <> 0) 

voslog < "msg_put ( "femsg^pxaOfic" / 
"&netline&" ) code -fccodefc" error") ; 

endif 
endif 

case "A" : # allocate alternate netline 

vpline « substr(code, 2, 99) ; # get 
message vpline 

# Find a free netline, if available - 
search from front to back 

for (netline - ALTBGN; (netline <= ALTEND) 
and (altlines [netline] <> 0); netline++) 

endfor 

if (netline > ALTEND) 

voslog ("ERROR: no free netline to 

allocate*) ; 

if ({code = msg_put(msg_pid() , "A- 

NO")) <> 0) 

voslog ( "msg_put ( " &msg_pid ( ) &" , A- 
NO) code "&code&" error") ; 

endif 

else 

altlines [netline] = vpline ; # mark 

network line busy 

vplines [vpline] = netline ; # 
update vpline connection data 

# reply to requesting task 

if ((code » msg_put (msg_pid ( ) , "A- 

OK")) <> 0) 

voslog ( "msg_put ( "&msg_pid( ) &" , A- 
OK) code "&code&" error") ; 

endif 

# send message to inform task of 

netline allocated 

if ((code = msg_put (msg_pid() , 

netline) ) <> 0) 

voslog ( "msg_put ( "&msg_pid ( ) & " , 
"&netline&" ) code "fccodefc" error") ; 

endif 
endif 

case "D" : # deallocate netline 

netline = substr(code, 2, 2) ; # get 

message netline 

vpline = substr(code, 4, 99) ; # get 

message vpline 
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*/ 

# check for vpline deallocate request 
if (vplxne <> 0) 

# mark vpline as free 

vplines [vpline] = 0 ; 
endif 

NETEND) ) lf ( (netline >= «ad (netline <= 

if ((vpline <> 0) and 
(net lines [netline] <> vpline)) 

„ r fc _ . , voslog( "ERROR: No active netline 

"taetlmefc" to deallocate") ; wine 

"D-NO")) <> 0) if ((C ° de = .^-^t^ff-PidO, 

M£l nMA , . ^ voslog("msg_put ("&msg_pid 

()&",D-NO) code '&code& fl error") ; 

endif 

else 

# mark netline as free 
netlines [netline] = 0 ; 

# reply to requesting task 

"D-OK")) <> 0) ±f ((C ° de = ^"utfmsgjsidO, 

voslog( "msg tmt ( "&mso oid 
()&",D-OK) code "&code&" error") ; *msg_pia 

endif 
endif 

else 

^ ^rm™. v if << netline >= ALTBGN) and (netline 

<= ALTEND) ) 

if ((vpline <> 0) and 
(altlxnes [netline] <> vpline)) 

voslog( "ERROR: No active 
alternate netline "&netline&" to deallocate") ; 

if { (code = 
msg_jput (msg_pid ( ) , "D-NO")) <> 0) 

. voslog ( "msg_j?ut 

( "&msg_pid( ) &" r D-NO) code "&code&" error") ; 

endif 

else 

# check for vpline deallocate 

request 

if (vpline <> 0) 

# mark vpline as free 
vplines [vpline] = 0 ; 

endif 

# mark alternate netline as 

free 

altlines [netline] = 0 ; 
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# reply to requesting task 
if ( (code = 
msg_put (msg_pid() , "D-OK")) <> 0) 

voslog ("msg_put 
{"&msg_pxd()&",D-OK) code "&code&" error") ; 

endif 
endif 

else 

voslog ( "ERROR: in deallocating 

net line "&netline) ; 

continue ; 
endif 
endif 

case "C": # allocate conference 

# Find a free conference, if available 
for (conf = 1; (conf <= CONFMAX) and 
( confers [conf] <> 0); conf++) 
endf or 

if (conf > CONFMAX) 

voslog ( "ERROR: no free conference to 

allocate") ; 

if ((code = msg_put(msg _pid() , "C- 

NO")) <> 0) 

voslog ( "msg_put ( " &msg_pid ( ) & " , C- 
NO) code "&code&" error") ; 

endif 

else 

# set conference active 
conf ers [conf ] = conf ; 



OK")) <> 0) 



# reply to requesting task 

if ((code = msg_put (msg_pid ( ) , "O 



voslog ( w msg_put ( "£jnsg_pid( ) &" , C- 
OK) code "&code& w error") ; 

endif 

# send message to inform task of 
conference allocated 

if ((code = msg_put (msg_pid() , conf)) 

<> 0) 

voslog ( B msg_put ( " &msg_pid ( ) & " , 
M &conf & " ) code " &code& " error n ) ; 

endif 
endif 

case "E": # deallocate conference 

conf = substr(code, 2, 99) ; # get 
message conference 
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*3 



"fcconf) ; 



if ((conf < 1) or (conf > CONFMAX) ) 

voslog ( "ERROR: in deallocating conf 

NO-)) <> 0) if ((code s rosgj>ut(msg_pid(), "E- 

N0) code - & code&» « w ^ g( ' MB - imt( 

endif 

else 

# mark conference as free 
confers [conf ] = 0 ; 



# reply to requesting task 
if ((code = msg_put (msg_pid ( ) , -e- 

OK) code "*code & » ^J^^^r^sg^n^^- 



OK")) <> 0) 



endif 
endif 
endswitch 
endf or 

end 
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APPENDIX II 

SOURCE CODE LISTING OF AN INBOUND TASK 
USED BY THE MAIN PROGRAM 



# 
* 
* 
* 
# 
#- 



BARGER.VS - D121 line task 

Designed to work in concert with GETDID - VS 



dec 

inc lude " datmod . inc ' 
definitions 

include ■ global . inc ' 
numbers 

const NOCONF = 0 ; 
conference 

const TALKER = 1 ; 
conference talker 

const LISTENER = 2 
c on f e r enc e list ener 



var 

calls 

var 

number 
var 

number 
var 

number 
var 
var 
var 
var 
var 
vax 
var 
var 
var 



code: 16 ; 
vpline:3 ; 
netline:3 ; 
outline: 3 ; 

subs : 3 ; 
call: 3 ; 
flash: 3 ; 
mainpid:3 ; 
sdate : 7 ; 
stime:7 ; 
pin_entry:10 ; 
phone^num : 1 6 ; 
file: 3 ; 



var conf:3 
(conf subs) 



# SS96 library 

# define global variable 

# check_waiting() not in 

# check_waiting() 

# check_waiting ( ) 

# return value from function 

# voice processing line 

# inbound network line 

# outbound network line 

# subscriber number 

# call number 

# flash DTMF digits 

# main task PID 

# call starting date 

# call starting time 

# barger PIN entry 

# phone number input 

# file handle 

# conference number 
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var stats: 16 ; » . . . 

status (confsubs) beginning netline 



end 



var n:6, line: 3 ; # * 

needed for scr_stat 



program 

# Initializations 

mainpid = glb_get (MAINPID) ; 

vpline = arg() ; 

message rl^ived-fT &Ud nuinber "*ilin«fc- 

hangup ( ) ; 

endif° hain( " GETDID,,/ vpline ) ; 

line = vpline ; » , , 

# debug only 

# Begin call processing 

# do not allow disconnects t-n ~_ • 

scratch (vpline, J, . t0 37X111 onsi Smal 

L e ™/ e 3ump to onsignal 

sc_use (vpline) ; a 

discoLect)" 11 ""^ inactive (in case of unexpected 
call = ; 

endihile ength(netline = -«.t(3» eq 0, 

if ((netline < NETBGN) or (netline > NETEMn v \ 

^netlinJ« S il g S ERR0R: ^ 1±d M "."e nSf 5 ' * 
ftcneLj.ine&" message received") • 

hangup ( ) ; ' 

chain ("GETDID", vpline) ; 
endif ' 

endihili ength(SUbS = ""•tO)) eq 0, 

if ((subs < 0) or (subs >= SUBSMAX) ) 

"&subs & - 12 a °;i" ERR0R: i nvalid subscriber number 
ecsuos& message recexved") - 

hangup ( ) ? 

chain ("GETDID", vpline) ; 
endxf 

endwMle Sn9th(Pin - eDtry = -"Lg.t»» eg 0 , 
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# set task debug screen status 
scr_stat ( n B- "fcnetline) ; 

# set barger present with both calls inactive 
glb_set ( BARG1 SUB+ subs , n 0 " ) ; 

glb_set (BARG2SUB+subs, "0") ; 

# return answer supervision 

while ((code = sc_of fhook(vpline) ) <> T_0FFH) 
voslog( "ERROR: code n &code&" while taking 
vpline "&vpline&" offhook") ; 
sleep (10) ; 
endwhile 

voslog ( "Answer supervision" ) ; 

# now allow disconnects to run onsignal 
sc_watch (vpline , " d+- " , 1 ) ; 

# clear digit buffer 
sc_clrdigits (vpline) ; 

if ( (pin_entry streq glb_get (BARGE_PIN+subs) ) 
or (pin_entry streq glb_get (PRGRMJPIN+subs) ) ) 

goto sel_loop ; 
endif 

# check for a caller waiting 

if ( (glb_get(CALLlACT+subs) <> 0) 
or (glb_get (CALL2ACT+subs) <> 0)) 

# reset call waiting request 
glb_set (CALLWAIT+subs, ■■) ; 

# check for immediate barge with null barge PIN 
if (glb_get (BARGE_PIN+subs) streq " M ) 

goto barge_in ; 

else 

# play ringing message (allows tone 

interruption) 

voslog ("sc_play( •ringing 1 (001) .vox) B ) ; 
sc_play ( vpl ine , " PRO 001. vox M ) ; 

voslog ( "sc_play( 'call waiting' (105) .vox)") 

sc_play (vpline, "PR0105 .vox" ) ; 
endif 

else 

# play ringing message (allows tone 
interruption) 

voslog ( H sc_play( 'ringing' (001) .vox) n ) ; 
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sc_play (vpline, -PR0001 . vox" ) ; 
endif 

# start PIN entry loop elapsed time 
sdate = date() ; 

stime = time() ; 

# check for DTMF entry in first second 

if ((code = sc_getdigits (vpline, 1, 1, 1)) eg 
T_MAXDT) 

# add digit to PIN entry string 
pin_entry = sc_digits (vpline) ; 

goto checkup in ; 

else 

# clear PIN entry strings 
pin_entry = " " ; 

goto case_3 ; 
endif 

pin_loop: 

while (timesub(date() , time(), sdate, stime) <= 20) 

# check for call waiting request 
check_waiting (NOCONF) ; 

# clear PIN entry string 
pin_entry = " M ; 

# ask for PIN number entry 
voslog{"sc_play( 'enter pin 1 (286) .vox) ■ ) ; 
sc_play (vpline, "PR0286 . vox" ) ; 

get_pin: 

while ((code = sc_getdigits (vpline, 1, 3, 3)) 
<> T_TIME) 

# add digit to PIN entry string 
pin_entry = pin_entry&sc_digits (vpline) ; 

check_pin : 

if ( (pin_entry streq 
glb_get (BARGE_PIN+subs) ) 

or (pin_entry streq 
glb_get (PRGRM_PIN+subs) ) ) 

break ; 
endif 
endwhile 

if (code eq T_TIME) 

continue ; 
endif 

voslog("PIN entry: "&pin_entry) ; 
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sel_loop : 

# restart elapsed time 
sdate = date ( ) ; 
stime = time() ; 

# check to see if entry matches programming 

password 

if (pin_entry streq glb_get (PRGRM__PIN+subs) ) 
while (timesub(date() , time(), sdate, 

stime) <= 20) 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# check for call' waiting request 
check_waiting (NOCONF) ; 



1) .vox)") 



2)) eq T_MAXDT) 



# give programming selections 
voslog("sc_play( 'selection 1 (D00 

sc_play (vpline, "DOOl.vox") ; 

if ((code = sc_getdigits (vpline, 1, 2, 



break; 
endif 
endwhile 

# check for dropped out of entry loop due 

to . tone entry 

if (code <> TJMAXDT) 

break ; 
endif 

# check for call waiting request 
check_waiting (NOCONF) ; 



"&code) 



code = sc_digits (vpline) ; 

voslog( "Subscriber selection number; 



switch (code) 

# For testing - become an inbound Caller 
case : 



"6545786") 

both calls inactive 



if (glb_get (CALLER_DID+subs) streq 

# set barger not present with 

glb_set (BARGlSUB+subs , " " ) ; 
glb_set (BARG2SUB+subs, " " ) ; 

# send netline number to CALLIN 
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CALLIN 



•6545786") 



6, 1, 0) 



msg_put(getpid(), netline) ; 

# send subscriber number to 

msg_put(getpid(), subs) ; 

# replace ourself with CALLIN 
chain { "CALLIN- , vpline) ; 

endif 

*ase r -6"^ tin9 ~ rec ° rd mess a9e prompts 
if (glb_get(CALLER_DID+subs) streq 

# play the prompt 
sc_play (vpline , - record . vox " ) ; 

# record a message 
sc_record (vpline , "message . vox" , 

sleep (5) ; 

# play the message back 

sc_play (vpline, "message. vox" ) ; 
endif 

# Change forwarding number 
case "1": 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# ask for new forwarding number 

^ . voslog("sc_play( 'enter transfer 

number' (D005) .vox) ") ; 

sc_play (vpline, "D005.vox") ; 

# set '*■ and '#' as mask digits 
sc_toneint (vpline, 1, "*#") ; 

.~ (((code a sc_getdigits (vdine 16 

i°c TT 3 K> T-^T) <«de <> ?ImDTM?) and(code <>' 

^ . ^ _ voslog( "ERROR: "&code&" - 

entering forwarding number failure") ; 

else 

phone_num = sc_digits (vpline) ; 



• * i 



# allow entry of a second • # • or 

. voslog( "ERROR: "fccodefc" - 

entering forwarding number failure") ; 

endif 
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1t> 



phone_num = 
phone_num&sc_digits (vpline) ; 

voslog ( " Subscriber forwarding 

number : M &phone_num) ; 

# check for leaving old number 
if (phone_num strneq ■*■) 

# remove any terminating 1 * ' 

or ■#• 

if ( ( subs tr <phone_num, 
length <phone_num) , 1) streq n * ■ ) 

or ( subs t r ( phone_num , 
length (phone_num) , 1) streq "#")) 

phone_num = 

substr (phone_num, 1 , length (phone_hum) - 1 ) ; 

endif 

# update subscriber 1 s 

forwarding number 

glb_set (FORWARD+subs, 

phone_num) ; 

# open forwarding number file 
file = 

fil_open< "forward" &subs&" .nmb", "wets") ; 

# seek start of file 
fil_seek(file, 0, 0) ; 

# write new forwarding number 

string to file 

f il_writes (file, 
glb_ge t ( FORWARD+subs ) & " x r x n ■ ) ; 

# close file 

f il_close (f ile) ; 
endif 



number foil ows 
is 1 (D004) .vox)") 



( FORWARD+subs ) & " ' ) " ) 



# indicate current transfer 
voslog ( " sc_play { ' transfer number 
sc_play( vpline, "D004 .vox" ) ; 

# play current forwarding number 
if (glb__get (FORWARD+subs) strneq 

voslog ( "spk_dgts ( ' "&glb_get 

spk_dgts (glb_get (FORWARD 
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+SUbs ) ) ; 
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ft 



else 

(????). vox)-) ; voslog <"sc_playC null • 

sc_play (vpline, "null. vox") ; 
enair 
endif 

# enable tone interruption 
sc_toneint (vpline, 1) ■ 

# Change voice mail number 
case "2": 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# ask for new voice mail number 

, voslog ("sc_play( 'enter voice mail 

number' (D002) .vox) ") ; voice man 

sc_play (vpline, "D002.vox") ; 

# set and •♦•.as mask digits 
sc_toneint (vpline, 1, •*#") ; 

fc . . voslog ( "ERROR : "&code&" - 

entering voice mail number failure") ; 

else 

phone_num = sc_digits (vpline) ; 

# allow entry of a second '#• or 

(((code = sc_getdigits (voline 
Tim)) K> T - MAXDT, {code <> T_lBTMF) g and (?ode <> 

. voslog ("ERROR: "&code&" - 

entering forwarding number failure") • 

endif 

phone_num = 
pnone_num&sc_digits (vpline) ; 

, . t voslog ("Subscriber voice mail 

number: "&phone_num) ; 

# check for leaving old number 
if (phone_nura strneq ■*■) 

or l# , # remove any terminating •*' 

if ( ( subs t r ( phone_num , 



WO 9009731 PCT/DS95/12318 

n 

length (phone_num) , 1 ) streq " * " ) 

or ( subs t r { phone_num , 
length (phone_jium) , 1 ) streq ■ # " ) ) 

phone_num = 

substr (phone_num, 1, length (phone_num) - 1) ; 

endif 

# update subscriber's voice 

mail number 

glb_set (VOICEMAIL+subs , 

phone_num) ; 

# open voice mail number file 
file = : 

f il_open(■vmail ,, tsubs& ,, ♦nmb" , "wets") ; 

# seek start of file 
fil_seek(file, 0, 0) ; 

# write new voice mail number 

string to file 

f il_writes (f ile, 
glb_get (VOICEMAIL+subs )&" * r x n" ) ; 

# close file 

f il_close (f ile) ; 
endi f 

# indicate current voice mail 

number follows 

voslog( "sc_play( 'voice mail 
number is ' (D003) .vox) M ) ; 

sc_play (vpline, "DO 03. vox") ; 

# play current voice mail number 
if (glb_get (VOICEMAIL+subs) 

strneq " ■ ) 

voslog( "spk_dgts ( • "&glb_get 

(VOICEMAIL+subs ) & " 1 ) n ) ; 

spk_dgts (glb_get { VOICEMA 

IL+subs) ) ; 

else 

voslog ( w sc_play ( 'null ' 

(????) .vox) ") ; 

sc_play (vpline, "null .vox" ) ; 
endif 
endif 

# enable tone interruption 
sc_toneint (vpline, 1) ; 
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# Change PIN number 
case ■ 0 " : 

stime) <« 20) (timesub , timet), sdate, 

# clear digit buffer 
sc_clrdigits(vpline) ; 

# check for call waiting request 
check_waiting (NOCONF) ; 

# give PIN programming selections 
voslog ( "sc_play ( • PIN 

selection' (???) .vox) " ) ; 

sc_play(vpline, "pinselct .vox" ) ; 

1. 2. 2» eq T_MAXDT) " ' ^ ' SC -^ etdi ^" <vP"ne , 

breaks- 
end if 
endwhile 

- ^ ^ * che <* for dropped out of entry loop 

due to tone entry * 

if (code <> T_MAXDT) 

break ; 
endif 

# check for call waiting request 
check_waiting (NOCONF) ; 



"&code) 



code = sc_digits(vpline) ; 
voslog ("Subscriber selection number: 

switch (code) 

# Change programming PIN 
case "1": 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# ask for new programming PIN 

voslog ( n sc_play( 'enter 
programming PIN • (???) . vox ) " ) ; 

sc_play (vpline, n PRGRMPIN . vox " ) ; 

# set and '#' as mask digits 
sc_toneint (vpline, 1, w *#") ; 

_ nfk ^ if (((code = sc_getdigits(vpline, 

16, 10, 3)) <> T_MAXDT) and (code <> T.MDTMF) and (code 



number 
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<> T_SIL) ) 

voslog { " ERROR : " &code& " - 
entering voice mail number failure") ; 
/ else 

phone_num = sc_digits (vpline) 



or 



# allow entry of a second '# 



if ( ( (code = 

sc_getdigits (vpline, 1, 1, 1)) <> T_MAXDT) and (code <> 
T_MDTMF) and (code <> T_SIL) ) 

vos log ( w ERROR : " &code& " 
- entering voice mail number failure") ; 

endif 

phone_num = 
phone_num&sc_digits (vpline) ; 

vos log ( " Programming PIN : 

" &phone_nura ) ; 

# leave old number if • *■ 

entered 

if (phone_num strneq "* M ) 

# remove any terminating 

«*• or ■#* 

if ( ( subs tr ( phone_num , 

length (phone_num) , 1 ) streq " * " ) 

or (substr (phone_nuin, 

length (phone_num) , 1 ) streq ■ # " ) ) 

phone_num = 

substr (phone_num, 1, length (phone_num) - 1) ; 

endif 



programming PIN 
phone_num) ; 



# update subscriber's 
glb_set ( PRGRM_PIN+subs , 

# open programming PIN 



file 

file = 

f il_open( "program M & subs &" .nmb" , "wets" ) ; 

# seek start of file 

f il_seek (file, 0 , 0 ) ; 

# write new programming 

PIN string to file 

f il_writes ( file, 
glb_get (PRGRM_PIN+subs) *r x n" ) ; 
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programming PIN follows 
is' (????) .vox) ") ; 
"PRGRMPIS.vox") ; 



# close file 

fil_close{file) ; 
endif 

# indicate current 

voslog ( - sc_play ( « program pin 

sc_play (vpline. 



PIN 

stmeg " " ) 

" &glb_get ( PRGRM__PIN+subs )&-•)•) 
(PRGRH_PlN+subs) ) ; 

(????) .vox) ") ; 
"null. vox" ) ; 



# Play current programming 
i f ( glb_get ( PRGRM_PIN+subs ) 
voslog("spk_dgts( ' 
spk_dgts (glb_get 

else 

voslog ("sc_play( 'null' 
sc_play (vpline, 



endif 
endif 

# enable tone interruption 
sc_toneint (vpline, 1) ; 



PIN' (???) .vox)") 



# Change barge in PIN 
case "2": 

# clear digit buffer 
sc_clrdigits(vpline) ; 

# ask for new barge in PIN number 
voslog ("sc_play( 'enter barge in 

sc_play(vpline, " BARGEPIN . vox " ) ; 

# set and ■#' as mask digits 
sc_ tone in t (vpline, 1, "*#") ; 

voslog ( "ERROR: "icodpt" _ 
enterxng voice mail number failure") ; 6tCocle& 

else 

phone_num = sc_digits (vpline) 
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# allow entry of a second ' # ' 

or 

if (((code = 

sc_getdigits(vpline, 1, 1, 1)) <> TJ1AXDT) and (code <> 
T_MDTMF) and (code <> T_SIL) ) 

voslog( "ERROR: "&code&" 
- entering forwarding number failure") ; 

endif 

phone_num = 
phone_num&sc — digits (vpline) ; 

voslog( "Barge In PIN: 

"&phone_num) ; 

# check for leaving old 

number 

if (phone_num strneq •*") 

# remove any terminating 

or ■#' 

if ( (substr (phone_num, 

length (phone_num) , 1 ) streq " * " ) 

or ( subs tr ( phone_num , 

length (phone_num) , 1 ) streq " # M ) ) 

phone_num = 

substr (phone_num, l f length (phone_num) - 1) ; 

endif 



barge in PIN 
phone_ num) ; 



# update subscriber 1 s 
glb_set <BARGE_PIN+subs, 

# open programming PIN 



file 

file = 

f il_open( "bargein"&subs& M .nmb" , "wets" ) ; 

# seek start of file 
fil_seek(file, 0, 0) ; 

# write new barge in PIN 

string to file 

f il_ writes (file, 
glb_get (BARGE_PIN+subs ) & " x r x n" ) ; 

# close file 

f il_close (f ile) ; 
endif 
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97 



PIN follows 

is' (????) .vox) •) 

•BARGEPIS.vox") 

strneg •") 



# indicate current barge in 
voslog(-sc_play( -barge in PIN 
sc_play(vpline, 

•* P ^ a ^^ Current bar 9 e in PIN 
i f (glb_ge t ( BARGE_PIN+subs ) 



"&glb_get (BARGE_PIN + subs) &• • ) " > 7 Sl ° 9 ( " s P k - d STts < ' 



(BARGE_PIN+subs) ) 

(????) .VOX) " ) ; 
"null. VOX") ; 



else 



"6545786") 



spk^dgts (glb_get 

voslog ("sc_play( 'null' 

sc_play{vpline, 

endif 
endif 

# enable tone interruption 
sc_toneint(vpline, 1) ; 

endswitch 

# Transfer to voice mail 
case " 3 ■ : 

case_3 : 

phone_num = glb_get (VOICEMAIL+subs) • 
goto out_bound ; 

case "9": 

# TEST - outbound calling function 
it (glb_get (CALLER_DID+subs) streg 



tone' (274) .vox) ") 



# play dial tone message 
voslog ( " sc_play ( • dial 

sc_play(vpline, "PR0274 . vox" ) ; 

# set and '#• as mask digits 
sc_tonemt(vpline, 1, "#-) ; 

_ ,. . voslog ( "ERROR: "&code&" - 

entering outbound number failure") ; 
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goto sel_loop ; 

else 

phone_num = sc_digits (vpline) ; 

# remove any terminating • * ' or 

if { (substr (phone_num, 
length (phone_num) , 1) streg •*") 

or ( substr (phone_num, 
length (phone_num) , 1 ) streq " # 9 ) ) 

phone_num = substr (phone_num, 

1, length (phone_num) - 1) ; 

endif 
endif 

# enable tone interruption 
sc_toneint (vpline, 1) ; 

out_bound: 

# set outbound call number 

if (glb_get (CALLlACT+subs) eq 0) 

# call #1 inactive - so use call 

#1 

call = 0 ; 

else 

if (glb_get (CALL2ACT+subs) eq 0) 
# call #2 inactive - so use 

call #2 

call = 1 ; 

else 

voslog( "ERROR: No barger 

call = " " ; 
goto sel_loop ; 
endif 
endif 

if (phone_num streq 
glb_get < VOICEMAIL+subs ) ) 

# ask outbound alternate netline 

be allocated 

msg_put (mainpid, "A"frvpline) ; 
if ((code = msg_get(3)) strneq 

"A-OK") 

vos log ( "ERROR: code "&code&" 
when allocating outbound netline") ; 

call = mm ; 
goto sel_loop ; 
endif 

# get allocated outbound 

alternate netline 

while (length (outline - 



calls available") 
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ttsg.get(3)) eg 0) 

endwhile 

(outline > ALTEND) ) lf (( ° Utline < ALTBGN) or 

outline number "^outline*- messagi"f^° R: invali <* 

call = " » ' 

.na if ffoto sel - 1 °°P.- 

else 

allocated # ask °utbound netline be 

?rV£oi main ? id ' " N "&vpline) ; 
"N-OK") lf ((cod e = msg^get(3)) strneq 

when allocating outbound netline?) "** R ° R: C ° de " & *ode&« 

call = •» ; 

goto sel loop ♦ 
endif "~ p ' 



nsg_get(3)) eq 0) 

endwhile 

(outline > NETEND) ) ((outline < 

NETBGN) or 

outline number -^outline*" JS^."^ 1 invalid 

Call = ■» ; 

goto sel loop • 
endif ~ p ' 

endif 

# ask conference be allocated 
msgj>ut(mainpid, « C ") • 
if ((code = msg_get(3)) strneo »c-o*m 
allocating conference «)T 109 ( " ERR0R: code 'ico&v* £Jl 

call = " ° . 

endif 9 ° t0 Sel " 1 ° 0p ' 

eSdwhile n9th(C ° nf = M ".t<3)> eg 0) 

if (conf < l or conf > CONFMAX) 
number "&conf&" messageT^ invalid conference 

call = " » ; 

goto sel_loop ; 
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endif 

voslog ( "Allocating conference " fcconf ) 



# tenrporarily wrong vpline # set outbound call active 

glb_set (CALLlACT+SUBSMAX*call+subs, 

vpline) ; 

# temporarily wrong vpline # set outbound call answered 

glb_set (CALLlANS+SUBSMAX*call+subs , 



vpline) ; 
conf) ; 
outline) ; 
netline) ; 

vpline) ; 

(not started) 
"") ; 

" • ) ; 

inactive 
" " ) ; 

progress inactive 
■ w ) ; 

(not started) 



# set outbound conference number 
glb_set (CALLlCNF+SUBSMAX*call+subs, 

# set outbound caller netline ? 
glb_set (CALLlNET+SUBSMAX*call+subs, 



# set outbound barger active 
glb_set (BARGlSUB+SUBSMAX*call+subs, 



# set outbound barger answered 
glb_set (BARGlANS+SUBSMAX*call+subs, 

# set outbound forwarding inactive 
glb_set (FWRDlACT+SUBSMAX*call+subs, 

# set outbound forwarding unanswered 
glb_set (FWRDlANS+SUBSMAX*call+subs, 

# set outbound forwarding netline 
glb_set (FWRDlNET+SUBSMAX*call+subs, 

# set outbound forwarding call 
glb_set <FWRDlCPA+SUBSMAX*call+subs , 

# set outbound voice mail inactive 
glb_set (MAILlACT+SUBSMAX*call+subs, 
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inactive # outbound voice mail netline 

„ M . 9 lb - se t(MAILlNET+SUBSMAX*call+s\ibs 1 

# ignore disconnects 
sc_watch (vpline, "lw+-", l) ; 

transmit # drive v P line receive from outline 

SSAS.PASS, SSAL.Noff ^if = Sc ™^™> ^line, 

„ r . Pnl ^ voslog ( "Scon ("&vpline&", 

"&outline&") code "&code&" error") ; 

else 

• r^ i-T - » voslog (" Scon ("&vpline&", 

"&outline&") : °&Sstatus (vpline) ) ; 

endif 

.... # drive outline receive from vpline 

transmit 

if ( (code = Scon (outline, vnline 
SSAS_PASS, SSAL_NO)) <> 0) vpxme, 

ur nx „ voslog (" Scon ("&outline&", 

"&vpline&") code "&code&" error") ; 

else 

„ r .. fa% „ voslog ( "Scon ("&outline&", 

"&vpline&"): "fcSstatus (outline) ) • 

endif 

# save the initial time 
sdate = date() ; 

stime = time() ; 
out_seize: 

# go off hook 

T__0FFH) if ((code = sc - off hook (vpline)) <> 

voslog ( "ERROR: code "&code&" 
while putting vpline "&vpline&" offhook") ; 

goto out_retry ; 

else 

voslog ("sc_off hook ( °&vpline&" ) ") 
endif 

# wait one second for next event 

report 

code = sc_wait (vpline, 10) ; 
voslog { "sc_wait { "&vpline& B , 10) = 
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"fccode) ; 

# check for loop current event report 
if (code <> T_LC0N) 

voslog ( "ERROR: Loop current 

timeout on vpline "fcvpline) ; 

goto out_retry ; 
endif 

# wait one second for next event 

code = sc_wait (vpline, 10) ; 
voslog ("sc_wait ("&vpline&" ,10) = 

# check for wink event report 
if (code <> T_WKRECV) 

voslog ("ERROR: Wink timeout on 

goto out_retry ; 
endif 

# drive netline receive from outline 



report 
"&code) ; 

vpline "fcvpline) 

transmit 



if ((code = Scon(netline, outline, 
qqAS OFFH00K, SSAL NO)) <> 0) 

SSAS^u* * nuu*, _ voslog { H Scon ( • tnet 1 ine& " , 

"&outline&") code "fccodeSc" error") ; 

else 

voslog ( " Scon ( "tnetlineft" , 
rt &Sstatus (netline) ) ; 
endif 



•fcoutlinefc" ) : 



voslog ( "Dialing outbound number 



"&phone_num) ; 

# dial the outbound number - wait 

until dialing complete 

if (phone_num streq 

gib get (VOICEMAIL+subs) ) 

y ~ y code = sc_dial (vpline, 

glb_get ( STRATUS_PRE ) Scphone_num&glb_get ( STRATUS_PST) ) ; 

else 

code = sc_dial (vpline, 
glb_get ( PSTN^PRE+ subs ) &phone_num£cglb_get ( PSTN_PST+subs ) ) 

endif , 

# check dialing completion coded 

if (code <> T_DIAL) 

voslog ( " ERROR : code "StCodeSc" 
while dialing outbound number «&phone_num) ; 
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out_retry : 

if (timesub(date( ) , time(), 

sdate, stime) < 12) 

# put vpline onhook 
if ( (code = 
sc_onhook (vpline ) ) <> T_ONH) 

voslog( "ERROR: code 
"fccodefc" while putting vpline "&vpline&" onhook") ; 

else 

voslog ( H sc_onhook 



( w &vpline& n ) ■) ; 



endif 

# wait for onhook recognition 
sleep(lO) ; 

goto out_seize ; 

else 

out_discon: 

# release barger's outbound 

call 

release_outbound_call ( ) ; 

# drive vpline receive from 

net line transmit 

if ((code = Scon (vpline, 
netline , SSAS_PASS , SSAL_N0) ) <> 0 ) 

voslog ( ** Scon ( " fcvpli 
ne& " , " &net line& B ) code " &code& " error " ) ; 

else 

voslog ( " Scon ( " fcvpli 
ne&" , "&netline&" ) : "fcSstatus (vpline) ) ; 

endif 

# drive netline receive from 

vpline transmit 

if ((code = Scon(netline, 
vpline, SSAS_PASS, SSAL_YES) ) <> 0) 

voslog ( n Scon( "&netl 
ine&" , w &vpline&" ) code "fccodefc" error") ; 

else 

voslog { B Scon ( " fcnetl 
ine&" , *&vpline&" ) : "&Sstatus (netline) ) ; 

endif 

# give time for netline loop 

current to settle at vpline 

sleep (3) ; 

# allow disconnects to run 

onsignal 
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sc_watch (vpline, H d+- n , 1) ; 

goto sel_loop; 
endif 
endif 

# drive vpline receive from netline 

transmit 

if {(code = Scon(vplxne, netline, 

SSAS_PASS, SSAL_N0) ) <> 0) 

voslog (" Scon ("kvplinefc" , 

tt &netline& n ) code "ficcodefic" error") ; 

else 

voslog (" Scon ( M &vpline&" , 
w &netline& w ) : "fcSstatus < vpline) ) ; 

endif 

# drive netline receive from vpline 

transmit 

if ((code = Scon (netline, vpline, 

SSAS_PASS, SSAL_YES) ) <> 0) 

voslog ( " Scon { ■ fcnetlinefc " , 

"&vpline&" ) code n &code& fl error") ; 

else 

voslog ( "Scon ( tt &netline& n , 
"&vpline&") : "ScSstatus (netline) ) ; 

endif 

# give time for netline loop current 

to settle at vpline 

sleep (3) ; 

# allow disconnects to run onsignal 
sc_watch (vpline, "d+- n , 1) ; 



conference 

conference 

Answer Loop") 
stime) < 40) 



# add barger netline to outbound 
add_conf (call, netline, LOGON) ; 

# add outbound netline to outbound 
add_conf (call, outline, LOGON) ; 
voslog ( "Barger Wait for Outbound 

while (timesub(date() , time() , sdate, 

# clear digit buffer 
sc_clrdigits (vpline) ; 
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supervision 
1) eq 1) 



disconnect 
eq T_MAXDT) 
tt # n ) 

disconnect" ) 



I0S 

# check for call waiting request 
check_waiting (TALKER) ; 

# check for outbound answer 

if (substr (Sstatus (outline) , 10, 

voslog{ "Answer supervison") ; 
break ; 
endif 

# check for barger forced 
if <sc__getdigits (vpline, 1, 1, l) 

if (sc_digits (vpline) streq 

voslog( "Forced 

break ; 
endif 
endif 
endwhile 

# check for no outbound answer 
if (substr (Sstatus (outline) , 10, 1) eq 

# release barger 1 s voice mail 

release_outbound_call ( ) ; 
goto sel_loop; 
endif 

m # ask outbound CALLOUT task vpline be 

allocated 

msgjut (mainpid, 
"O n &call&outline&subs) ; 

code = msg_get(3) ; 

if (substr (code, 1, 1) strneq M 0") 

voslog ( "ERROR: code w &code&" when 
allocating outbound vpline") ; 

call = " n ; 

# release barger* s voice mail 

call 

release_outbound_call ( ) ; 
goto sel_loop ; 
endif 



supervision 
0) 

call 



vpline) 



# set outbound call active (to CALLOUT 
glb_set <CALLlACT+SUBSMAX*call+subs, 
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subs tr (code, 2, 99)) ; 

# set outbound call answered (to 
CALLOUT vpline) ( cALLlANS + SUBSMAX*call + subs , 
substr(code, 2, 99)) ; 

# act as if have barged in 
goto barge_loop ; 

else 

# restart elapsed time 
sdate = date() ; 
stime = time() ; 

endif 

case w * " • 

if (sc_getdigits (vpline, 1, 1, D e<I 

T_MAXDT) . f (sc __ digits(vpline ) streq -*•) 

# check for a caller waiting 
if ( (glb_get (CALLlACT+subs) 

K> 0) or (glb_get (CALL2ACT+subs) 

K> °^ goto barge_in ; 

else 

voslog( "sc_j?lay (no call 
waiting (108) .vox") ; sc _play (vpline. 

n PR0108-vox w ) ; 

endif 
endif 
endif 

default: 

# restart elapsed time 
sdate = dateO ; 
stime = time() ; 

endswitch 

# remain in programming loop 
goto sel_loop ; 
endif 

# check to see if PIN entry matches barge in 
password ^ {pin _ entry streq glb.get (BARGE_PIN + subs) ) 
goto barge_in ; 
endif 
endwhile 
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# dropped out of PIN entry loop due to timeout 
voslog ( "sc_play (goodbye (039) .vox") ; 

sc_play (vpline, " PR0039 . vox" ) ; 
hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
barge_in : 

# check for call number not set yet 
if (call streq "■) 

# call number not set 

# check for call #1 active 

if (glb_get(CALLlACT+subs) <> 0) 

# proceed to barge into call #1 
call = 0 ; 

else 

# check for caller #2 active 

if (glb_get (CALL2ACT+subs) <> 0) 

# proceed to barge into call #2 
call = 1 ; 

else 

voslog ( n sc_play (no call 
waiting (108) .vox") ; 

sc_play (vpline, "PR0108 . vox" ) ; 
goto get_pin ; 
endif 
endif 

else 

# call number already set 

# check for both calls active 

if ( (glb_get (CALLlACT+subs) <> 0) 
and (glb_get (CALL2ACT+subs) <> 0)) 

# change to unselected call in case barger 

backed out 

# from selected call during earlier 
monitor barge in 

voslog ( "TEST: call switch from: "&call&" 
to : w &modulo2 ( cal 1 ) ) ; 

call = modulo2 (call) ; 
endif 
endif 

# TEST - monitor barge function 

if (glb_get (CALLER_DID+subs) streq "6545786") 

# check for null forwarding number 
if (glb_get (FORWARD* subs) streq "■) 

# shorten number of simulated rings 

# before caller is transfered to voice 

mail 



# request answer supervision be returned 
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to caller 

# set negative to indicate monitor barger 

request 

glb_set (CALLlANS+SUBSMAX*call+subs, - 

vpline) ; 

endif 

# reset call waiting request 
glb_set (CALLWAIT+subs, " n ) ; 

# add our netline as listener to selected 
caller ' s conference 

add_list (call, netline, LOGON) ; 

for (;;) 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# delete our netline as listener 
del_list (call, netline, vpline, LOGOFF) ; 

# check for call waiting request 

# check_waiting (LISTENER) ; # net 

# del_list & add_list already being done 
check_waiting (NOCONF) ; 

# play monitor mode beep to listener 
sc_play tone (vpline, 1000, 2000, -30, -30, 

# add our netline as listener 
add_list (call, netline, LOGOFF) ; 

# space monitor beeps every 5 seconds 

while looking for tone input 

if ((code = sc_getdigits (vpline, 1, 5, 1) ) 

eq T MAXDT) 

if ((code = sc_digits (vpline) ) streq 

" # " ) 

# delete our netline as listener 

to 

# selected caller's conference 
del_list (call, netline, vpline, 

LOGON) ; 

# restart elapsed time 
sdate = date() ; 
stime = time() ; 



effect 
for beep 

20) ; 
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goto pin_loop ; 
endif 

# check for non-monitor barge request 

and caller active 

if ((code streq "*") 
and 

(glb_get (CALLlACT+SUBSMAX*call+subs) <> 0)) 

break ; 
endif 
endif 
endf or 

# delete our netline as listener to selected 
caller 1 s conference 

del_list (call, netline, vpline, LOGON) ; 
endif 

# set one barger call active 

glb_set (BARGlSUB+SUBSMAX*call+subs, netline) ; 
glb_set (BARGlSUB+SUBSMAX*modulo2 (call ) +subs , " - ) ; 

# set one barger call answered 

glb_set (BARGlANS+SUBSMAX*call+subs, vpline) ; 
glb_set <BARGlANS+SUBSMAX*modulo2 (call)+subs, n " ) ; 

# stop caller's forwarding 
stop_f orwarding(call r 0) ; 

# stop caller's voice mail 
stop_voicemail (call) ; 

# request answer supervision be returned to caller 
glb_set (CALLlANS+SUBSMAX*call+subs, vpline) ; 

# abort caller's possible sc_play in progress 
sc_abort (glb_get (CALLlACT+SUBSMAX*call+subs) ) ; 
voslog ( M sc_abort ( "&glb_get (CALLlACT+SUBSMAX*ca 

ll+subs)&") n ) ; 

# add our vpline to conference 
add_conf (call, vpline, LOGOFF) ; 

# play joining conference tones 

sc_playtone (vpline, 1000, 2000, -30, -30, 100) ; 
voslog ( " sc_play tone ( j oin conf ) 11 ) ; 

# delete our vpline from conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# add our netline to selected caller's conference 
add_conf (call, netline, LOGON) ; 
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# reset call waiting request 
glb_set ( CALLWAIT+subs , " ■ ) ; 

barge_loop: 

voslogCBarger Conversation Loop") ; 

for (;;) 

# check for call waiting request 
check_waiting (TALKER) ; 

# check for selected caller active 

if (glb_get(CALLlACT+SUBSMAX*call+subs) <> 0) 

# selected caller active 

# check for unselected caller inactive 
if 

<glb_get(CALLlACT+SUBSMAX*modulo2 (call)+subs) eq 0) 

# selected caller active/unselected 

caller inactive 

# set unselected subscrxber inactive 
glb_set (BARGlSUB+SUBSMAX*modulo2 

(call)+subs, "") ; 

# check for three way conference 
if ( (glb_get (BARGlSUB+subs) eq 0) 

or (gib _get(BARG2SUB+subs) eq 0)) 

# three way conference not active 

# release unselected caller's 

conference if unused 

rel_conf (modulo2 (call) ) ; 
endif 
endif 

else 

# selected caller inactive 

# check for unselected caller inactive 
if 

(gib get (CALLlACT+SUBSMAX*modulo2( call) +subs) eq 0) 
~ # both callers inactive 

# set both calls inactive but with 

barger active 

glb_set (BARGlSUB+subs, 0) ; 
glb_set (BARG2SUB+subs , 0 ) ; 

# release selected caller's conference 

if unused 

rel_conf (call) ; 

# release unselected caller's 

conference if unused 

rel_conf (modulo2 (call) ) ; 

else 

# selected call inactive/unselected 

call active 

# check for three way conference 
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inac t i ve here 
conference request " ) 



/// 



if ( (glb_get (BARGlSUB+subs) eq 0) 
or (glb_get (BARG2SUB+subs) eq 0)) 

# three way conference not active 

# do NOT set selected subscriber 



else 



inactive 
1+subs, "") ; 
conference if unused 



voslog( tt TEST: Auto switch 

# switch to unselected call 
flash = "**" ; 

goto switch_conf ; 

# three way conference active 

# set selected subscriber 

glb_set (BARGlSUB+SUBSMAX*cal 

# release selected caller's 
rel_conf (call) ; 



. ^ voslog( B TEST: Call "&call&" 

switched to become call "&modulo2 (call ) ) ; 

# switch to active (i.e. 

unselected) call 

call = modulo2 (call) ; 
endif 
endif 
endif 



T_MAXDT) 



request 



# check for barger tone input 
sc_clrdigits (vpline) ; 

if ((code = sc_getdigits (vpline, 2, 3, 2)) eq 
flash = sc_digits (vpline) ; 
# check for forced forwarding disconnect 

if (flash streq "#8") 

# stop forwarding even if answered 
stop_forwarding(call, 1) ; 

endif 



# check for forced voice mail request 
if (flash streq "#9" ) 

# check for caller active 

if 

(glb_get (BARGlSUB+sUBSMAX*call + subs) strneq n n ) 

stop_f orwarding (call, 0) ; 
# start voicemail with 
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announc emen t 
switch__conf : 

active 



start_voicemail (call, 1) 



endif 
endif 

# check for conference switch request 
if (flash streq "**") 

# check for unselected call active 

# and for three way conference not 

((alb get (CALLlACTisUBSMAX*modulo2 (call) +subs) <> 0) 

U9iD - g V and ((glb_get(BARGlSUB+subs) eq 0 

or (glb_get (BARG2SUB+subs) eq 0) ) ) 
voslog ( " Switch conference 

request") ; 

# reset call waiting request 
glb_s e t ( C ALLWAIT+ subs , " " ) ; 

# delete our netline from 
0 fliari-pd caller's conference 

selected cauer d el_conf (call, netline, vpline, 

LOGON) ; 

# set new selected caller 
call = modulo2 (call) ; 



1+subs, netline) ; 
inactive 

*modulo2 (call) + subs, 
if unused 



# set selected barger call active 
glb_set (BARGlSUB+SUBSMAX*cal 

# set unselected barger call 

glb_set (BARG1SUB+SUBSMAX 
") ; 

# release unselected conference 
rel_conf (modulo2 (call) ) ; 

# stop selected call's forwarding 
stop_forwarding(call, 0) ; 

# (FUTURE PROGRAMMABLE OPTION) 

# stop selected call's voice mail 
stop_voicemaii (call) ; 

# request answer supervision be 
returned to selected « g \^ flet (CMilAHS+SUBaa x. C al 
1+subs, vpline) ; 
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answered 
1+subs, vpline) 



# set selected barger call 
glb_set (BARGlANS+SUBSMAX*cal 



# abort selected caller's 
possible sc_play in progress 

sc_abort <glb_get ( CALL 1 ACT 

+SUBSMAX*call+subs) ) ; 

voslog( "sc_abort ( "&glb_get 
(CALLlACT+SUBSMAX*call+subs) &" ) - ) ; 

# add our vpline to conference 
add_conf (call, vpline, LOGOFF) 



30, -30, 100) 



# play joining conference tones 
sc_playtone (vpline, 1000, 2000, - 

voslog< M sc_playtone( join conf)") 



conference 
LOGOFF) ; 



# delete our vpline from 
del_conf (call, vpline, netline, 



# add our netline to selected 

caller ' s conference 

add_conf (call, netline, LOGON) ; 
endif 
endif 

# check for conference switch request 
if (flash streq "#3 M ) 

# check for both callers active 

# and for three way conference not 

active 

if 

( (glb_get(CALLlACT+SUBSMAX*call+subs) <> 0) 

and 

(glb_get (CALLlACT+SUBSMAX*modulo2 (call ) +subs) <> 0) 

and ( (glb_get (BARGlSUB+subs) eq 0) 
or (glb_get (BARG2SUB+subs) eq 0) ) ) 
voslog ( "Three way conference 

request") ; 

# reset call waiting request 
glb_set (CALLWAIT+subs , B tt ) ; 

# delete unselected caller's 
netline from unselected caller's conference 
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del_conf (modulo2 (call) , 
alb get (CALLlNET+SUBSMAX*modulo2 ( call ) +subs) , 
glbijet (CALLlACT+SUBSMAX*modulo2 (call) +subs) , LOGON) ; 

# request answer supervision be 
returned to both callers (CALL1MJS+SUBSMAX * cal 

l + subs, vpline) ; glb _ set (CAL L1ANS + SUBSMAX 

*modulo2 (calD+subs, vpline) ; 

# stop unselected call's 
forwarding st op_f orwarding (modulo2 (call) , 0) 

# (FUTURE PROGRAMMABLE OPTION) 

# stop selected call's voice mail 
stop_voicemail (modulo2 (call ) ) ; 

# get unselected caller's 

conference number 

conf = 

glb_get (CALLlCNF+SUBSMAX*modulo2 (call) +subs) ; 

# check for using active 

specified conference 

spec if ((conf > 0) and (conf <= 

CONFMAX) ) # check . £ confere nce still 

in use . _ 

if 

( (glb_get(FWRDlSUB+SUBSMAX*modulo2(call)+subs) eq 0) 
(alb oet(FWRDlACT+SUBSMAX*modulo2(call)+subs) eq 0) 
(glb_get (M AILlACT + SUBSMAX*modulo2 ^JJ^^J 
deallocation msg _put (mainpid, 

«E"&conf) ; . f ((code = msg _get(3)) 

strneq "E-OK") voslog ( "ERROR: code 

-&code&" when deallocating conference "fcconf) ; 

else 

voslog ( "Deallocating 
conference "fcconf) ; # get unselected 

caller's conference inactive glb _ set (CALLlCN 



inactive conference" ) 
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F+SUBSMAX*modulo2 (call)+subs, " - ) ; 

endif 
endif 

else 

voslog ( "ERROR: deallocating 

# 

endif 

# set both barger calls active 
glb_set (BARGlSUB+subs, netline) ; 
glb_set (BARG2SUB+subs, netline) ; 

# set both barger calls answered 
glb_set (BARGlANS+subs » vpline) ; 
glb_set (BARG2ANS+subs , vpline) ; 

# abort unselected caller's 
possible sc_play in progress < 

sc_abort (glb_get (CALL1ACT 
+SUBSMAX*modulo2 (call) +subs) ) ; 

voslog ( " sc_abort { *&glb_get 
(CALLlACT+SUBSMAX*modulo2 (call) +subs) &" ) " ) ; 

# add our vpline to conference 
add_conf (call, vpline, LOGOFF) ; 



30, -30, 100) 

i 

conference 
LOGOFF) ; 



# play joining conference tones 
sc_playt one (vpline, 1000, 2000, 

voslog ( H sc_playtone (join conf ) ") 



# delete our vpline from 
del_conf (call, vpline, netline, 



# add unselected caller's netline 
to selected caller's conference 

add_conf (call , 
glb_get (CALLlNET+SUBSMAX*modulo2 (call) +subs) , LOGON) ; 

# check for unselected conference 

inactive 

if 

(glb_get (CALLlCNF+SUBSMAX*modulo2 (call)+subs) strneq » " ) 

voslog ( "TEST: Deselected 

conference 

n &glb_get (CALLlCNF+SUBSMAX*modulo2 (call) +subs) &" not 
inactive" ) ; 

endif 
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# update unselected caller's 
conference to selected caller's conference 

glb_set (CALL1CNF+SUBSMAX 

*modulo2 (call)+subs, 

glb_get (CALLlCNF+SUBSMAX*call+subs) ) ; 

endif 
endif 
endif 

# check to see if barger is talking to anyone 
if ( (glb_get (CALLlACT+subs) eq 0) 
and (glb_get (CALL2ACT+subs) eq 0) 
and <glb_get (FWRDlACT+subs) eq 0) 
and <glb_get (FWRD2ACT+subs) eq 0)) 

# delete our vpline from our conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# delete our netline from our conference 
del_conf (call, netline, vpline, LOGON) ; 

# drive netline receive from vpline 

transmit 

if ((code = Scon (netline, vpline, 
SSAS_PASS, SSAL_N0)) <> 0) . 

voslog( ,, SconC , &netline& w , "&vpline&" ) 

code n ScCode& M error") ; 

else 

voslog( M Scon("ficnetline& M , ,, &vpline& n ) : 

"ficSstatus (netline) ) ; 

endif 

# drive vpline receive from netline 

transmit 

if ((code = Scon(vplme, netline, 

SSAS PASS, SSAL_.N0)) <> 0) 

" voslog( ,, Scon( ,, &vpline& ,, , n &netline&" ) 

code "&code& n error") ; 

else 

voslog("Scon( w &vplineSc" , "&netline&" ) : 

"fcSstatus (vpline) ) ; 

endif 



present 



unused 



# set both calls inactive but with barger 

glb_set (BARGlSUB+subs, 0) ; 
glb_set (BARG2SUB+Subs, 0) ; 

# release selected caller's conference if 
rel_conf (call) ; 
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# release unselected caller's conference 

if unused 

rel_conf (modulo2 ( call ) ) ; 

# set call number inactive 
call = ; 

if (pin_entry streq 
glb_get ( PRGRM_PIN+subs ) ) 

# go back to programming selection 

loop 

goto sel_loop ; 

else 

# start PIN entry loop elapsed time 
sdate = date() • 

stime = time() ; 

# go back into PIN entry loop 
goto pin_loop ; 

endif 
endif 
endf or 

end 



#■ 



onsignal 

voslog ( "Onsignal " ) ; 
hangup ( ) ; 

chain { "GETDID" f vpline) 

end 



func hangup () 

# abort our multitasking calls in progress 
sc_abort (vpline) ; 

# wait for all our multitasking calls to finish 
for (code = 1; (sc_stat (vpline) <> 0) and (code <= 

20); code++) 

sleep(5) ; 
endf or 

if (sc_stat (vpline) <> 0) 

voslog ("ERROR: 10 seconds on vpline "&vpline&" 
without idle status") ; 
endif 

# put vpline onhook 

while ((code = sc_onhook (vpline) ) <> T_ONH) 

voslog { "ERROR: code n &code&" while putting 



J I 
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vpline "&vpline&" onhook" ) ; 
sleep (10) ; 
endwhile 

voslog("sc_.onhook("&vpline&") ") ; 

# delete barger vpline from our conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# delete barger netline from our conference 
del_conf (call, netline, vpline, LOGON) ; 

# remove vpline receive from netline transmit 
if ((code = Sbrk(vpline, netline, SSAS_0NH00K, 

SSAL NO) ) <> 0 ) 

~ voslog("Sbrk("&vpline& n , -&netline&") code 

"&code&" error") ; 

else . «. . v 

voslogCSbrkCScvplineSc", "&netline&") : 

"&Sstatus (vpline) ) ; 
endif 

if ((netline >= NETBGN) and (netline <= NETEND) ) 

# remove netline receive from vpline transmit 

# and enable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_0NH00K, 

SSAL_YES)) <> v ° o ) slog( , lsbrk( .. &netline& . | . &V piineSc") code 
"&code& n error") ; 

voslog("Sbrk("&netline&", "&vpline&") : 

"fcSstatus (netline) ) ; 
endif 

6186 # remove netline receive from vpline transmit 

# and disable netline SS96 alerting 

if ((code = Sbrk (netline, vpline, SSAS_0NH00K, 

SSAL.NO)) <> 0 v ) oslog( .. sbrk( ,. £cnetline& . / « feVp iine& 1 ') code 

"&code&" error") ; 

else . -. ■ . % 

voslogrSbrkpficnetlxneSc" , "&vpline& ) : 

"&Sstatus (netline) ) ; 
endif 
endif 

# release netline/vpline allocations 
deallocO ? 

# set both barger calls inactive 
glb_set (BARGlSUB+subs , " " ) ; 
glb_set ( BARG2 SUB+subs , " " ) ; 
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# release our conference if unused 
rel_conf (call) ; 

# set task debug screen status 
scr_stat ( ■ Idle " ) ; 

endfunc 

func deallocO 

if (netline strneq M " ) 

# release netline/vpline allocations 
msg_put (mainpid, n D B &netline&vpline) ; 
if ((code = msg_get(3)) strneq "D-OK") 

voslog ( "ERROR: code "&code& M when 
deallocating netline "fcnetline) ; 
endif 
endif 
endfunc 

func check_wai ting (sconf ) 

# check for call waiting request 
if (glb_get (CALLWAIT+subs) <> 0) 

if (sconf eq TALKER) 

# delete our netline as talker from 

conference 

del_conf (call, netline, vpline, LOGOFF) ; 

else 

if (sconf eq LISTENER) 

# delete our netline as listener from 

conference 

del_list (call, netline, vpline, 

LOGOFF) ; 

endif 
endif 

# check for priority call waiting request 
if (glb_get (CALLWAIT+subs) < 0) 

voslog ("sc_play( 'urgent call waiting 
tones' (1304) .vox) ") ; 9 

sc_play (vpline, " PR1304 . vox" ) ;# two tones 
sc_play (vpline, " PR1304 . vox" ) ; # two tones 

else 

voslog ("sc_play( 'call waiting 
tones' (1305) .vox) " ) ; 

sc__play (vpline, " PR1305 . vox" ) ; # three 

tones 

endif 

if (sconf eq TALKER) 

# add our netline as talker to conference 
add_conf (call, netline, LOGOFF) ; 

else 

if (sconf eq LISTENER) 
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# add our netline as listener to 
conference a dd_list (call, netline. LOGOFF) ; 

endif 
endif 

# reset call waiting request 
glb_set (CALLWAIT+subs , " " ) ; 
endif 
endfunc 

func release_outbound_call() 

# check for outbound call active 

if (call stmeq •") 

voslog("release_outbound_call() ) ; 

# delete barger vpline from outbound conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# delete barger netline from outbound 
C ° nferenC del_conf (call, netline, vpline, LOGON) ; 

# delete outbound netline from conference (no 
VPlin6) del_conf (call, outline, 0, LOGON); 

# set outbound conference inactive (but leave 

number usable) 

glb_set (CALLlCNF+SUBSMAX*call+subs , 

« + «&glb_get (CALLlCNF+SUBSMAX*call+subs) ) ; 

# set outbound netline inactive 
glb_set (CALLlNET+SUBSMAX*call+subs, ■•) ; 

# set outbound answer supervision inactive 
glb_set (CALLlANS+SUBSMAX*call+subs , " " ) ; 

# set outbound caller inactive (do last) 
glb_set (CALLlACT+SUBSMAX*call+subs , " • ) ; 

if ((outline >= NETBGN) and (outline <= 
NETEND) ) # remove outline receive from vpline 

transmit # ^ enable outline SS96 alerting 

if ((code = Sbrk(outline, vpline, 

SSAS-OHHOOK. ^fsiU Ps£rk< _ . SvplineS . , 

code "&code&" error") ; 

else 
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voslog("Sbrk("&outline&", "&vpline&") : 
B &Sstatus (outline) ) ; 

endif 

else 

# remove outline receive from vpline 

transmit 

# and disable outline SS96 alerting 
if ((code = Sbrk(outline, vpline, 

SSAS_0NH00K, SSAL_N0) ) <> 0) 

voslog ( " Sbrk ( - &out linefc ■ , fl &vpline& ■ ) 
code w &codeSc" error") ; 

else 

voslog ( "Sbrk( "&outline&" , "fcvplinefc" ) : 
"&Sstatus (outline) ) ; 

endif 
endif 

# release outline allocation (no vpline) 
msg_put (mainpid, M D"&outline&0) ; 

if ((code = msg_get(3)) strneq "D-OK") 
voslog ("ERROR: code "&code& n when 
deallocating outline "^outline) ; 
endif 

# release outbound conference if unused 
rel_conf (call) ; 

# set outbound call inactive 
call = ; 

endif 
endfunc 

func stop_forwarding(scall, sforce) 

# check for not forced stop request 

# and for forwarding answered 

# and for not "transparent" forwarding mode 
if ( (sforce eq 0) 

and (glb_get(FWRDlANS+SUBSMAX*scall+subs) <> 0) 
and (glb_get (FORWARD+subs ) strneq 
glb_get (CALLER_DID+subs ) ) ) 
return; 
endif 

sem_jset ( SEM_FWRD+subs ) ; 

# check for forwarding active 

if (glb_get (FWRDlACT+SUBSMAX*scall+subs) <> 0) 
voslog ( " stop_f orwarding ( ) " ) ; 



# delete forwarding netline from caller's 
conference 
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del_conf (scall, 
gib ge t(FWRDlNET+SUBSMAX*scall+subs), 
glbIget(FWRDlACT+SUBSMAX*scall+siabs) , LOGON) ; 

# set call answered so forward task marks 

itself inactive and stopped . 

g lb_set(FWRDlANS+SUBSMAX*call+subs, vpline) ; 

# abort forwarding task 

sc_hangup(glb_get (FWRDlACT+SUBSMAX*scall+subs) ) 

voslog ( " sc_hangup ( " &glb_get (FWRD1ACT+SUBSM 
AX*scall+subs)Sc") ") ; 

# set forwarding task inactive and stopped 
glb_set(FWRDlACT+SUBSMAX*scall+subs, 0) ; 

endif , 
sem_c lear ( SEM_FWRD+ subs ) ; 

endfunc 

func start_voicemail (scall, smsg) 
# check for voice mail active 

if (gib get(MAILlACT + SUBSMAX*scall+subs) eq 0) 

# request voice mail vpline task be started 
msg_put(mainpid, ••V'&scall&subs) ; 

code = msg_get(3) ; 

if (substr(code, 1, 1) strneq "V") 

voslog ("ERROR: code -fccodefc" when 
allocating voice mail vpline") ; 

else . 

# set voice mail task active 
glb_set(MAILlACT+SUBSMAX*scall+subs, 

substr (code, 2, 99)) ; 

if (smsg <> 0) 

# add our vpline to conference 
add_conf (scall, vpline, LOGOFF) ; 

# play connecting call to voice mail 
message vos log ( ■ sc_play ( 1 to voice 

.ail' (030) .vox)-) ; cJ)lay(vpliMf npR0 030.vox-) ; 

# delete our vpline from conference 
del_conf (scall, vpline, netline, 

LOGOFF) ; 

endif 
endif 
endif 
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endfunc 

func stop_voicemail (scall) 

sem_set ( SEM_MAIL+subs ) ; 

# check for voice mail active 

if (glb_get (MAILlACT+SUBSMAX*scall+subs) <> 0) 
voslog( "stop_voicemail { ) " ) ; 

# delete voice mail netline from caller's 
conference 

del_conf ( scall , 
glb_get (MAILlNET+SUBSMAX*scall+subs) , 
glb_get (MAILlACT+SUBSMAX*scall+subs) , LOGON) ; 

# abort voice mail task 

sc_hangup(glb_get (MAILlACT+SUBSMAX*scall+subs) ) 

voslog ( ■ scjiangup ( " &glb_get (MAIL1ACT+SUBSM 
AX*scall+subs)& n ) ■) ; 

# set voice mail task inactive and stopped 
glb_set (MAILlACT+SUBSMAX*scall+subs, 0) ; 

endif 

sem_clear (SEM_MAIL+subs) ; 
endfunc 

func modulo2 (scall) 

return ( (scall+1) - (scall+1) /2*2) ; 
endfunc 

include "confsubs.inc" # conferencing 

subroutines 



# 

# CALLIN.VS - D121 line task 
# 

# Designed to work in concert with GETDID.VS 
# 

# 



dec 

include "datmod. inc M # SS96 library 

definitions 

include "global . inc " # define global variable 

numbers 
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var code : 1 6 ; 
calls 

var vpline:3 ; 
number 

var netline:3 ; 

var conf : 3 ; 

var subs : 3 ; 

var call: 3 ; 

var mainpid:3 ; 

var sdate:7 ; 

var stime:7 ; 

var etime:7 ; 

var calltime:7 ; 

var nulltime:7 ; 

time 

var pin_entry:10 

var stats: 16 ; 
status (conf subs) 
var line: 3 ; 

end 



# return value from function 

# voice processing line 

# network line number 

# conference number 

# subscriber number 

# call number 

# main task PID 

# call starting date 

# call starting time 

# call elapsed time 

# call elapsed time 

# null forward number elapsed 

# barger PIN entry 

# beginning netline 

# needed for scr_jstat 



program 

# Initializations 

mainpid = glb_get (MAINPID) ; 

vpline = arg() ; 

if ( (vpline < GDIDBGN) or (vpline > GDIDEND) ) 

voslog( "ERROR: invalid vpline number "&vpline&" 
message received") ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 

line = vpline ; # debug only 

# Begin call processing 

# enable hang up jump to onsignal 
sc_use (vpline) ; 

# set call number inactive (in case of unexpected 
disconnect) 

call = ; 

# do not allow disconnects to run onsignal 
sc_watch (vpline, "+-" , 1) ; 

while (length (netline = msg_get(3)) eq 0) 
endwhile 

if ({netline < NETBGN) or (netline > NETEND) ) 

if ( (netline < ALTBGN) or (netline > ALTEND) ) 
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-&nefclin*t- ™*1°»< "ERROR: invalid netline number 
&netiine&" message received") ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 
endif 

endwhile ength(SUbS = ms S-get(3)) eq 0) 
if ((subs < 0) or (subs >= SUBSMAX) ) 

"*«,H«r. vosl °5 (,,ERR °R : invalid subscriber number 
"&subs& n message received "J ; 
hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 

# set task debug screen status 
scr_stat ( n I-"&netline) ; 

BARGER il'S, ■ d ° DOt when changing 

if <glb_get(CALLER_DID+subs) strneq "6545786-) 

# check for caller disconnect (preceding answer 
supervisor! return = no "ringing") g 

if (sc_stat (vpline, 8) eq 1) 

voslog( "Disconnect - ringing drop") • 
hangup () ; * 
chain ( "GETDID" , vpline) ; 

endif 
endif 

active) 56 * 1 Cal1 nUmber < GETD *D checked for all calls 

if (glb_get (CALLlACT+subs) eq 0) 

# call #1 inactive - so this becomes call #1 
call = 0 ; 

else 

if (glb_get (CALL2ACT+subs) eq 0) 

# call #2 inactive - so this becomes call 



#2 



call #3 



call = 1 ; 

else 

if (glb_get (CALL3ACT+subs) eq 0) 

# call #3 inactive - so this becomes 



call = 2 ; 

else 

if (glb_get (CALL4ACT+subs) eq 0) 
# call #4 inactive - so this 

becomes call #4 

call = 3 ; 
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available" ) 



el se 

voslog( "ERROR: No inbound calls 



play_reorder { " " ) ; 
hangup ( ) ; 

chain ( " GETDID " , vpline) ; 
endif 
endif 
endif 
endif 

# set caller active m 
glb_set (CALLlACT+SUBSMAX*call+subs, vplxne) ; 

# ask conference be allocated 
msg_put (mainpid, "C" ) ; 

if ((code « msg_get(3)) strneq "C-OK") 

voslog ( " ERROR: code "&code&" when allocating 

conference") ; 

play_reorder { " " ) ; 

hangup ( ) ; 

chain { "GETDID" , vpline) ; 
endif 

# get allocated conference number 
while (length(conf = msg_get(3)) eq 0) 
endwhile 

if ((conf < 1) or (conf > CONFMAX) ) 

voslog ( "ERROR: invalid conference number 
"ficConfSt" message") ; 

play_reorder { " " ) ; 
hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 

voslog ("Allocating conference "fcconf) ; 

# set conference number 

glb_set (CALLlCNF+SUBSMAX*call+subs , conf) ; 

# set caller netline m 
glb_set (CALLlNET+SUBSMAX*call+subs , netline) ; 

# set answer supervision inactive 
glb_set (CALLlANS+SUBSMAX*call+subs , " " ) ; 

if (call < BARGMAX) 

# set barger answered inactive 

glb_set (BARGlANS+SUBSMAX*call+subs, " " ) ; 

endif 
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if (call < FWRDMAX) 

# set forwarding inactive (not started) 
glb_set (FWRDlACT+SUBSMAX*call+subs, ■ " ) ; 

# set forwarding answered inactive 
glb_set (FWRDlANS+SUBSMAX*call+subs, " " ) ; 

# set forwarding netline inactive 
glb_set <FWRDlNET+SUBSMAX*call+subs, " " ) ; 

# set forwarding call progress inactive 
glb_set (FWRDlCPA+SUBSMAX*call+subs , an ) ; 

endif 

if (call < MAILMAX) 

# set voice mail inactive (not started) 
glb_set (MAILlACT+SUBSMAX*call+subs , " " ) ; 

# set voice mail netline inactive 
glb_set (MAILlNET+SUBSMAX*call+subs , n " ) ; 

endi f 

# now allow disconnects to run onsignal 
sc_watch(vpline / "d+-" / 1) ; 

# return answer supervision 

while ((code = sc_off hook (vpline) ) <> T_0FFH) 
voslog( "ERROR: code "&code&" while taking 
vpline "&vpline&" off hook") ; 
sleep (10) ; 
endwhile 

voslog ( "Answer supervision" ) ; 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# check for transparent forwarding 
if (glb_get (FORWARD+subs) streq 

glb^get (CALLER_DID+subs) ) 

# start paging task 
start_paging ( ) ; 
goto short_cut ; 

endif 

# play ringing message (allows tone interruption) 
voslog ( tt sc_play ( ' ringing 1 (PR0001) .vox) " ) ; 

if ((code = sc_play (vpline, "PR0001 . vox" ) ) eq 
T.TERMDT) 

if ((code = check_entry ( ) ) eq 1) 

goto voice„mail ; 
endif 
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if (code eq 2) 

# TEST - reverse action of ' 0 ■ for Ron 

Brooks DID 

if (glb_get (CALLER_DID+subs) streq 

"6545786") 

goto start_page ; 

else 

goto short_cut ; 
endif 
endif 
endif 

# TEST - reverse action of '0' for Ron Brooks DID 
if (glb_get(CALLER_DID+subs) streq "6545786") 

goto short_cut ; 
endif 

start_page: 

# start paging task 
start_paging { ) ; 

# check for no early barger active 
if ((call >= BARGMAX) or 

(glb_get (BARGlSUB+SUBSMAX*call+subs) eq 0)) 

# play 'reached Accessline for 1 message 
voslog( "sc_play( 'Accessline' (PR0601) .vox)") ; 
if ((code = sc_play (vpline, "PR0601 . vox" ) ) eq 

T_TERMDT) 

# check for termination by caller 
if ((code = check_entry ( ) ) eq 1) 

goto voice_mail ; 
endif 

if (code eq 2) 

goto short_cut ; 
endif 
endif 
endif 

# check for no early barger active 
if ((call >= BARGMAX) or 

(glb_get (BARGlSUB+SUBSMAX*call+subs) eq 0)) 

# play subscriber's name message 
voslog ( " sc_j?lay ( 1 subscriber 

name ' ( "&glb_get (CALLER_DID+subs) &" ) .nam) " ) ; 

if {(code = sc„play (vpline, 
glb_get ( CALLER_DID+subs ) & " .nam" ) ) eq T_TERMDT) 

# check for termination by caller 
if ((code = check_entry ( ) ) eq 1) 

goto voice__mail ; 
endif 
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if (code eq 2) 

goto short_cut ; 
end if 
endif 
endif 

# check for no early barger active 
xf ( (call >= BARGMAX) or 

(glb_get(BARGlSUB+SUBSMAX*call+subs) eq 0)) 

# play 'if busy or unanswered 1 message 
voslog("sc.jplay( 'if unanswered 1 (D008) .vox)") • 
T.TERMDT) = SC ^ lay <vpline, "D008 . vox" ) ) eq ' 

# check for termination by caller 
if ((code = check_entry () ) eq 1) 

goto voice_mail ; 
endif 
endif 
endif 

short_cut : 

# check for no early barger active (barger 's 
sc_abort will stop 

# playing message, but will not stop these tasks 
from being started) p e casKS 

if ((call >= BARGMAX) or 

(glb_get(BARGlSUB+SUBSMAX*call+subs) eq 0)) 

# check for not null forwarding number 
if (glb_get (FORWARD* subs) strneq " " } 

# check for existance of subscriber 

forwarding task er 

if (call < FWRDMAX) 

# start forwarding 

s t ar t_f orwarding ( call ) ; 

else 

voice_mail : 

# start voice mail without 

announc emen t 

starc_voicemail {call, 0) ; 
endif 
endif 
endif 

# 



# add caller netline to our conference 
add_conf (call , netline, LOGON) ; 

voslog( "Caller Wait for Answer Loop") ; 



PCTAJS95/12318 

WO 96/09731 

# start call elapsed time 
sdate = date() ; 
stime = timeO ; 
calltime - -1 » 

for ( ; ; ) , , ... 

# compute call elapsed time 

etime = timesub(date () , timeO, sdate, stime) 

# check for forwarded call 
if (call < FWRDMAX) 

# check for barger active 

# or forwarding subscriber answer 
if { (gib get (BARGlSUB+subs) strneq 

or (glbIget<BARG2SUB+subs) strneq •") 
or (glb_get (FWRDlSUB+subs) <> 0) 
or (glb_get (FWRD2SUB+subs) <> 0) ) 

# check timeouts only once per time 

elapsing , f k> calltiine) 

calltime = etime ; 

if ((etime eq 2) or (etime eq 

14 )} # set call waiting notify 

request glb_set (CALLWAIT+subs, 



net line) 



endif 
endif 
endif 
endif 



# check for null forwarding numb er 
if (alb get (FORWARD+subs) streq ) 

# check timeouts only once per time 

elapsing . f ^ nulltime) 

nulltime = etime ; 
if (etime eq 18) 

# leave wait for answer loop 

after third ring ? 

endif 

if (etime eq 14) 

# reduce apparent delay fcy 

starting voice mail # without announcement while 

simulated rings # ^ being played 

start„voicemail (call, 0) ; 
endif 
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(PR0001) .vox) •) 

conference 
LOGOFF) ; 



if ((etime eq 4) or (etime eq 10) 
or (etime eq 16) ) 

# play three rings 

# add our vpline to conference 
add_conf (call, vpline, LOGOFF) 

# play ringing message 
voslog ( ■ sc_play ( • ringing * 

sc_j?lay (vpline, "PROOOl.vox" ) ; 

# delete our vpline from 
del_conf (call, vpline, netline, 

endif 



endif 
endif 

# check for return answer supervision request 
if (glb_get (CALLlANS+SUBSMAX*call+subs) <> 0) 

voslog ( "Answer supervison return") ; 

break ; 
endif 
endf or 



# check for null forwarding number 

# and no answer supervision return request (except 
from monitor barger) 

# (negative answer supervision request indicates 
set by monitor barger) 

if ( (glb_get (FORWARD+subs ) streq " " ) 

and (glb_get (CALLlANS+SUBSMAX*call+subs) <= 0)) 

# start voice mail without announcement 

# (may have already been started above) 
start_voicemail (call, 0) ; 

# add our vpline to conference 
add_conf (call, vpline, LOGOFF) ; 

# play 'one moment please' message 

voslog ("sc^playl 'one moment ' (PR0720) .vox) " ) ; 
sc_play (vpline, "PR0720. vox" ) ; 

# delete our vpline from conference 
del_conf (call, vpline, netline, LOGOFF) ; 

endif 



# set wait starting time inactive 
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sdate = ; 

voslogt "Caller Conversation Loop*) ; 

for {;;) £ 

# check for not transparent forwarding 
if (glb_get (FORWARD+subs) strneq 
glb_get (CALLER_DID+subs) ) 

# check for barger not having answered 

# and subscriber not active on forward leg 

# and callers not in same conference 

# and forwarding inactive after having 

answered 

# and voice mail not having run 
if (((call >= BARGMAX) or 

(alb get(BARGlANS+SUBSMAX*call+subs) eq 0)) 

and ((call >= FWRDMAX) or 
(alb get (FWRDlSUB+subs) eq 0)) 

and ( (call >= FWRDMAX) or 
(gib get (FWRD2SUB+ subs) eq 0)) 

and ((call >= BARGMAX) or 
(glb_get (CALLlCNF+SUBSMAX*call+subs) <> 
alb get (CALLlCNF+SUBSMAX*modulo2 (call) +subs) ) ) 

~ and ((call >= FWRDMAX) or 

(alb get (FWRDlACT+SUBSMAX*call+subs) eq 0)) 

and ((call >= FWRDMAX) or 
(alb get (FWRDlANS+SUBSMAX*call+subs) <> 0)) 

and ((call < MAILMAX) and 
(alb get (MAILlACT+SUBSMAX*call+subs) streq " M ) ) ) 

if (sdate streq "■) 

# save the time when this 

condition begins 

sdate = date() ; 
stime = time() ; 

else 

# compute condition existed time 

in even sees for compares +* m£ > n 

etime = timesub(date ( ) , timet) , 



sdate, stime) /2*2 
: "fcetime) ; 

time elapsing 
no barger active 



voslog( "Elapsed waiting time 



# check timeouts only once per 

if (etime <> calltime) 
calltime = etime ; 

# after first 10 seconds 

# and last possible check for 

if ( (etime eq 10) 

and ((call >= BARGMAX) or 
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(glb_get(BARGlSUB+SUBSMAX*call+subs) eq 0))) 

# delete our netline 

from conference 
vpline, LOGOFF) ; 



. del_conf (call, netline, 

# play 'please stand by 1 
voslog( "sc_play ( 'please 
sc_play (vpline , 

# add our netline to 
add_conf (call, netline, 

endif 

# after first 10 sees and 

# and last possible check for 
if ( ( (etime - etime/30*30) eq 



message 

stand by' (032) -vox) " ) ; 
"PR0032.vox" ) ; 

conference 
LOGOFF) ; 

every 30 sees thereafter 
no barger active 
10) 

and ({call >= BARGMAX) or 
(glb_get (BARGlSUB+SUBSMAX*call+subs ) eq 0))) 

# delete our netline 

from conference 

del_conf (call, netline, 

vpline, LOGOFF) ; 

# play 'press *9 to 
connect to message center' message 

voslog ( n sc_play ( 1 to 

leave message 1 (687) .vox) " ) ; 

sc_play (vpline, 

# add our netline to 
add_conf (call/ netline, 



"PR0687 .vox" ) 

conference 
LOGOFF) ; 



endif 
endif 
endif 
endif 

# check for caller tone input 

code = sc_getdigits (vpline, 2, 3, 2) ; 

if (code eq TM4AXDT) , 

# check for forced voice mail request 
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if (sc_digits (vpline) streq "*9" ) 

# check for forwarding already 

active 

if ( (call < FWRDMAX) 

and (glb_get (FWRDlSUB+subs) eq 0) 

and (glb_get (FWRD2SUB+subs) eq 

0)) 

stop_f orwarding (call, 0) ; 
endif 

# start voice mail with 

announcement 

start_voicemail (call, 1) ; 
endif 
endif 

# clear digits buffer 
sc_clrdigits (vpline) ; 
endif 

# check for barger inactive 

# and forwarding inactive 

# and barger having answered 

# and voice mail having run 
if (((call >= BARGMAX) or 

(glb_get (BARGlSUB+subs) streq " " ) ) 

and ((call >= BARGMAX) or 
(glb_get (BARG2SUB+subs) streq " ■ ) ) 

and ( (call >= FWRDMAX) or 
(glb_get (FWRDlACT+subs) eq 0)) 

and ((call >= FWRDMAX) or 
<glb_get (FWRD2ACT+subs) eq 0)) 

and ((call >= BARGMAX) or 
(glb_get (BARGlANS+SUBSMAX*call+subs) <> 0)) 

and ((call >= MAILMAX) or 
(glb_get (MAILlACT+SUBSMAX*call+subs) streq 0))) 
hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 
endf or 

end 

onsignal 

voslog( "Onsignal" ) ; 
hangup ( ) ; 

chain ( "GETDID" , vpline) ; 

end 

f unc hangup ( ) 

# abort our multitasking calls in progress 
sc_abort (vpline) ; 
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# wait for all our multitasking calls to finish 

for . (code = 1 ' (sc_stat(vpline) <> 0) and (code <= 
; code++) 

sleep (5) ; 
endf or 

if (sc_stat (vpline) <> 0) 

t^t-h^ J? Sl °? ( I ER ?? R: 10 seconds on vpline "&vpline&« 
without idle status") ; 

end if 

# put vpline onhook 

while ((code = sc_onhook (vpline) ) <> T_ONH) 

voslog( -ERROR: code "&code&" while putting 
vpline w 5cvpline& M onhook") ; 
sleep (10) ; 

endwhile 

vos log ( " sc_onhook ( n &vpl ine& " ) " ) ; 

# stop caller's forwarding 
stop_f orwarding ( call , 0 ) ; 

# stop caller's voice mail 
stop_voic email (call) ; 

# delete vpline from our conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# delete netline from our conference 
del_conf (call, netline, vpline, LOGON) ; 

# check for active call 
if (call strneq * n ) 

# set our conference inactive (but leave number 

usable) 

glb_set (CALLlCNF+SUBSMAX*call+subs , " + • &conf ) ; 
endif 

# remove vpline receive from netline transmit 
if ((code = Sbrk(vpline, netline, SSAS ONHOOK, 

SSAL_N0) ) <> 0) ~ 

voslog ( " Sbrk ( - &vpline& " , » &netline& " ) code 
"&code& n error") ; 
else 

voslog ( "Sbrk ( "Scvplinek " , tt &netline& " ) : 
"fcSstatus (vpline) ) ; 
endif 

# remove netline receive from vpline transmit 

# and enable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS ONHOOK, 
SSAL_YES) ) <> 0) ~ 



t I 



') 
•) 
") 
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voslog("Sbrk("&netlineSc", "&vpline&") code 
" &code& " error " ) ; 

elSS voslog("Sbrk("&netline&" , "&vpline&") : 
"ScSstatus (net line) ) ; 
endif 

# release netline/vpline allocations 
deallocO ; 

#check for active call 
if (call strneq •■) 

# set caller netline inactive 
glb_set (CALLlNET+SUBSMAX*call+subs, 

# set answer supervision inactive 
glb_set (CALLlANS+SUBSMAX*call+subs, 

# set caller inactive (do last) 
glb_set (CALLlACT+SUBSMAX*call+subs , 

endif 

# release our conference if unused 
rel_conf (call) ; 

# set task debug screen status 
scr_stat ("Idle") ; 

endfunc 

func deallocO 

# release netlinevpline allocations 
msg_put (mainpid, «D"&netline&vpline) ; 
if ((code = msg_get(3)) strneq -D-OK") 

vos log ("ERROR: code "&code&" when deallocating 
netline "Soietline) ; 

endif 
endfunc 

func check_entry ( ) 

# check for any DTMF 

if ((code = sc_getdigits(vplme, 1. 1, D) ec I 

# check for direct to voicemail request 
pin_entry = sc_digits (vpline) ; 
voslog( "Caller entry: "&pin_entry) ; 
if (pin_entry streq "#") 

# play 'one moment please' message 

voslog("sc_play( 'one 
moment ' ( PR07 2 0 ) . vox) " ) ; 
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sc_play (vpline, "PR0720 .vox" ) ; 

# indicate direct voicemail transfer 

request 

return 1 ; 
endif 

if (pin_entry streq "0") 

# indicate short cut messages request 
return 2 ; 

endif 

# use 1 * ' in place of null barge in code 

if ((code = glb_get (BARGE_PIN+subs) ) streq n " ) 

code = M *" ; 
endif 

goto pin_check; 

while (sc_getdigits (vpline, 1, 3, 3) <> T_TIME) 

# add digit to PIN entry string 
pin_entry = pin_entry&sc_digits (vpline) ; 

pin_check: 

if ( (pin_entry streq code) 
or (pin_entry streq 
glb_get (PRGRM_PIN+subs) ) ) 

# request conference deallocation 
msg_put (mainpid, 

w E M &glb„get(CALLlCNF+SUBSMAX*call+subs) ) ; 

if ((code = msg_get(3)) strneq "E-OK") 
voslog ( "ERROR: code "&code&" when 
deallocating conference 

"5cglb_get (CALLlCNF+SUBSMAX*call+subs) ) ; 

else 

voslog ( "Deallocating conference 
"&glb_get (CALLlCNF+SUBSMAX*call+subs) ) ; 

endif 

# set conference inactive 
glb_set (CALLlCNF+SUBSMAX*call+subs , 

„ „ } . 

# set caller netline inactive 
glb_set <CALLlNET+SUBSMAX*call+subs, 

" " ) ; 

# set answer supervision inactive 
glb_set (CALLlANS+SUBSMAX*call+subs , 

« „ j . 

# set caller inactive (do last) 
glb„set (CALLlACT+SUBSMAX*call+subs, 

« „ } . 

# send netline number to BARGER 
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msg_put (getpidO , netline) ; 

# send subscriber number to BARGER 
msg_put ( getpid ( ) , subs ) ; 

# send pin entry string to BARGER 
msg _put (getpid { ) , pin_entry ) ; 

# replace ourself with BARGER 
chain ( "BARGER" , vpline) ; 

endif 
endwhile 
endif 
return 0; 
endfunc 

func play_reorder (scall) 

# delete our netline from caller's conference 
del_conf (scall, netline, vpline, LOGOFF) ; 

voslog( n sc_playtone (reorder) ") ; 

# play reorder tones for 20 seconds 
for (code = 1; code <= 40; code++) 

sc_play tone (vpline, 480, 620, -24, -24, 30) ; 

# delay between tones 
sleep (2) ; 

endf or 

# add our netline to caller's conference 
add_conf {scall, netline, LOGOFF) ; 

endfunc 

func start_paging ( ) ; 

# check for null paging number 

i f ( glb_get ( PAGER+subs ) s trneq " " ) 

# request paging vpline task be started 
msg_put (mainpid , " P w fcsubs ) ; 

code = msg_get(3) ; 

if (substr(code, 1, 1) strneq "P") 

vos log ("ERROR: code "fccodeSc" when 
allocating paging vpline") ; 
endif 
endif 
endfunc 

func start_f orwarding (scall) 

if (scall < FWRDMAX) 

voslog ( " start^f orwarding ( ) " ) ; 

# request forwarding vpline task be started 
msg_put (mainpid, M F"&scall&subs) ; 
code = msg_get(3) ; 
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if { subs tr (code, 1, 1) streq "P") 

# set forwarding task active 
glb_set (FWRDlACT+SUBSMAX*scall+subs, 

substr(code, 2, 99)) ; 
else 

vos log ( "ERROR: code "&code& w when 
allocating forwarding vpline") ; 

# delete our netline from conference 
del_conf (scall, netline, vpline, LOGOFF) ; 

play_reorder { scall ) ; 

# add our netline to conference 
add_conf (scall, netline, LOGOFF) ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 
endif 
endfunc 

func stop_f orwarding (scall, sforce) 

# check for not forced stop request 

# and for forwarding answered 

# and for not "transparent" forwarding mode 
if ( (sforce eq 0) 

and (glb_get (FWRDlANS+SUBSMAX*scall+subs ) <> 0) 
and (glb_get (FORWARD+subs) strneq 
glb_get (CALLER__DID+subs ) ) ) 
return; 
endif 

sem_set ( SEM_FWRD+subs ) ; 

# check for forwarding active 

if (glb_get (FWRDlACT+SUBSMAX*scall+subs) <> 0) 
voslog ( M stop_f orwarding ( ) " ) ; 

# delete forwarding netline from caller's 
conference 

del_conf ( scall , 
glb_get (FWRD1NET+SUBSMAX* seal 1+ subs) , 
glb_get (FWRDlACT+SUBSMAX*scall + subs) , LOGON) ; 

# set call answered so forward task marks 
itself inactive and stopped 

glb_set (FWRDlANS+SUBSMAX*call + subs, vpline) ; 

# abort forwarding task 

sc_hangup(glb_get (FWRDlACT+SUBSMAX*scall+subs) ) 
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voslog ( " sc_hangup ( n &glb_get (FWRD1ACT+SUBSM 
AX*scall+subs)&") " ) ; 

# set forwarding task inactive and stopped 
glb_set (FWRDlACT+SUBSMAX*scall+subs, 0) ; 

endif 

sem_clear ( SEM_FWRD+subs) ; 
endfunc 

func s tar t_voic email (scall, smsg) 
# check for voice mail active 

if (glb_get (MAILlACT+SUBSMAX*scall+subs) eq 0) 
voslog ( " start_voicemail ( ) " ) ; 

# request voice mail vpline task be started 
msg_put (mainpid, w V"&scall&subs) ; 

code = msg_get(3) ; 

if (substr(code, 1, 1) strneq "V") 

voslog { "ERROR: code "&code&" when 
allocating voice mail vpline") ; 

# delete our netline from conference 
del_conf (scall, netline, vpline, LOGOFF) 

play_reorder ( scall ) ; 

# add our netline to conference 
add_conf (scall, netline, LOGOFF) ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 

else 

# set voice mail task active 
glb_set (MAILlACT+SU3SMAX*scall+subs, 

substr(code, 2, 99)) ; 



if (smsg <> 0) 

# delete our netline from conference 
del_conf (scall, netline, vpline, 



LOGOFF) 



message 

mail' (030) .vox) ") 



# play 'connecting call to voice mail' 
voslog ( "sc_play( • to voice 

sc_play ( vpl ine , " PRO 0 3 0 . vox - ) ; 

# add our netline to conference 
add_conf (scall, netline, LOGOFF) ; 
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endif 
endif 
endif 
endfunc 

func stop_voicemail (scall) 

sem_set ( SEM_MAIL+subs ) ; 

# check for voice mail active 

if (glb_get(MAILlACT+SUBSMAX*scall + subs) <> 0) 
voslog ( "stop_voic email ( ) " ) ; 

# delete voice mail netline from caller's 
conference & 

del_conf (scall, 

glb_get (MAILlNET+SUBSMAX*scall+subs) 

glb_get(MAILlACT+SUBSMAX*scall+subs)/ LOGON) ; 

# abort voice mail task 

sc_hangup(glb_get(MAILlACT+SUBSMAX*scall+subs) ) 
AX'scall^s^^ 

# set voice mail task inactive and stopped 

glb_set (MAILlACT+SUBSMAX*scall+subs, 0) • 
endif 

sem_clear (SEM_MAIL+subs) ; 
endfunc 

func modulo2 ( scall ) 

return ( (scall+1) - (scall+1) /2*2) ; 
endfunc 

include "conf subs . inc" # conferencing 
subroutines 



# 

# CALLOUT.VS - D121 line task 
# 

# Designed to work in concert with GETDID.VS 
# 

# 



dec 

include "datmod. inc" # SS96 library 
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^^^clude "global. inc- # define global variable 

numbers 

var code: 16 ; # return value from function 

calls # voice processing line 

var vplxne:3 ; * vo - t <- e ** 

number ... . # network line number 

Var ?i 5 ' # conference number 

var suSs 3 '; # subscriber number 

var suds. s number 

var SS&b ; # # -am t«* P1D 

var stats: 16 , » beginning netline 

St ^J C lil S T: * -eded for sor_stat 

end 

program 

# initializations 

mainpid = glb_get (MAINPID) ; 

S'uvpIinf^GDIDBGN) or (vpline > ^DE^)) 

vos log ( " ERROR : invalid vpline number -fcvpla.net 

message received") ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 

endif -i • . # debug only 

line = vpline ; 

* ^Sm.^SS^'jU to onsignal 

sc_use (vpline) ; 

* set call number inactive (in case of unexpected 

disconnect) 

call = "" ; 

# do not allow disconnects to run onsignal 
sc.watch (vpline, "+-", D > 

while (length (netline = msg_get(3)) eq 0) 

voslog(" ERROR: invalid netline number 
•<&netline£c" message received") ; 
hangup ( ) ; 
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chain ( "GETDID" , vpline) ; 
endif 
endif 

while (length (subs = msg_get(3)) eq 0) 
endwhile 

if ((subs < 0) or (subs >= SUBSMAX) ) 

voslog ( "ERROR: invalid subscriber number 
"&subs&" message received") ; 
hangup ( ) ; 

chain ( " GETDID vpl ine ) ; 
endif 

# set task debug screen status 
scr_stat ( n C- n &netline) ; 

while (length(call = msg_get(3)) eq 0) 
endwhile 

if {{call < 0) or (call >= BARGMAX) ) 

voslog ( "ERROR: invalid outbound call number 
"&call& M message received") ; 
hangup ( ) ; 

chain { n GETDID " , vpline) ; 
endif 

# return answer supervision via vpline 
while {(code = setoff hook (vpline) ) <> T_OFFH) 

voslog ( "ERROR: code "&code&" while taking 
vpline "ficvplinefc* offhook") ; 
sleep (10) ; 
endwhile 

# now allow disconnects to run onsignal 
sc_watch (vpline, "d+- B , 1) ; 

# set task debug status 
scr_stat ( "0- "&netline) ; 

for {;;) 

# clear digits buffer 
sc_clrdigits (vpline) ; 

# check for caller tone input 

code = sc_getdigits (vpline, 2, 3, 2) ; 
if (code eq TJ1AXDT) 

# check for forced voice mail request 
if (sc_digits (vpline) streq "*9" ) 

# start voice mail with announcement 
start_voicemail (call, 1) ; 
endif 
endif 
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# check for barger not active 
if ( (glb_get (BARGlSUB+subs) eq 0) 
and (glb_get (BARG2SUB+subs) eq 0)) 
hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 
endf or 

end 

onsignal 

voslog ( " Onsignal n ) ; 
hangup ( ) ; 

chain ( M GETDID " , vpl ine ) ; 

end 

func hangup () 

# abort our multitasking calls in progress 

sc_abort (vpline) ; 

# wait for all our multitasking calls to finish 
for {code = 1; (sc^stat (vpline) <> 0) and (code <= 

20) ; code++) 

sleep (5) ; 
endf or 

if <sc_s tat (vpline) <> 0) 

voslog ("ERROR: 10 seconds on vpline "&vpline& 

without idle status") ; 
endif 

« 

# put vpline onhook 

while ((code = sc_onhook (vpline) ) <> T_0NH) 

voslog ( "ERROR: code "&code&" while putting 
vpline "&vpline&" onhook") ; 
sleep (10) ? 
endwhile 

voslog ( " sc_onhook ( " &vpline&" ) " ) ; 

# delete vpline from our conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# delete netline from our conference 
del_conf (call, netline, vpline, LOGON) ; 

# check for active call 

if (call strneq "") , , 

# set our conference inactive (but leave number 

usable) glb ^ get (CALLlCNF+SUB SMAX*call+subs , n + "ScConf) ; 
endif 
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# remove vpline receive from net line transmit 
if ((code = Sbrk(vpline, netline, SSAS_ONHOOK, 

SSAL_NO) ) <> 0) 

voslog ( " Sbrk ( w &vpline& n , ■ &netline& ■ ) code 
" &code& ■ error " ) ; 
else 

voslog ( n Sbrk{ "&vpline& ai , -&netline&" ) : 
"fcSstatus (vpline) ) ; 
endif 

# remove netline receive from vpline transmit 

# and enable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_0NH00K r 
SSAL_YES) ) <> 0) 

voslog ( " Sbrk ( n &netline&" , "&vpline&" ) code 
" &code& " error " ) ; 

else 

voslog ( "Sbrk( "&netline&" , "&vpline&" ) : 
"&Sstatus (netline) ) ; 
endif 

# release netline/vpline allocations 
dealloc() ; 

#check for active call 
if (call strneq " " ) 

# set caller netline inactive 

glb_set (CALLlNET+SUBSMAX*call+subs, ° ° ) ; 

# set answer supervision inactive 
glb_set (CALLlANS+SUBSMAX*call+subs, " " ) ; 

# set caller inactive (do last) 
glb_set (CALLlACT+SUBSMAX*call+subs, " " ) ; 

endif 

# release our conference if unused 
rel_conf (call ) ; 

# set task debug screen status 
scr_s tat ("Idle") ; 

endfunc 

func dealloc() 

# release netlinevpline allocations 
msg_put (mainpid, n D"&netline&vpline) ; 
if ((code = msg_get(3)) strneq "D-OK") 

voslog ( "ERROR: code "&code&" when deallocating 
netline "fcnetline) ; 
endif 
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endfunc 

func start_voicemail (scall, smsg) 
# check for voice mail active 

if (glb^get (MAILlACT+SUBSMAX*scall+s\ibs) eq 0) 

# request voice mail vpline task be started 

msg_put (mainpid, w V n fcscall&subs ) ; 

code = msg_get(3) ; 

if (substr (code, 1, 1) stmeq "V") 

voslog < "ERROR: code "fccodefc" when 
allocating voice mail vpline") ; 

# delete our netline from conference 
del_conf (scall, netline, vpline, LOGOFF) ; 

play_reorder (scall ) ; 

# add our netline to conference 
add^conf (scall, netline, LOGOFF) ; 

hangup ( ) ; 

chain (" GETDID " , vpline) ; 

else 

# set voice mail task active 
glb_set (MAILlACT+SUBSMAX*scall+subs , 

s\ibstr (code, 2, 99)) ; 

if (smsg <> 0) 

# delete our netline from conference 
del_conf (scall, netline, vpline, 



LOGOFF) ; 
message 

mail 1 (030) .vox)") 



# play •connecting call to voice mail* 

voslog ( H sc_play( 'to voice 

sc _play (vpline , " PR0030 . vox" ) ; 



# add our netline to conference 
add_conf (scall, netline, LOGOFF) 
endif 
endif 
endif 
endfunc 

func play_reorder (scall) 

# delete our netline from caller's conference 
del_conf (scall, netline, vpline, LOGOFF) ; 
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voslog ( "sc_play tone (reorder) M ) ; 

# play reorder tones for 20 seconds 
for (code = 1; code <= 40; code++) 

sc_playtone(vpline, 480, 620, -24, -24, 30) ; 
# delay between tones 
sleep (2) ; 
endf or 

# add our netline to caller's conference 
add_conf (scall, netline, LOGOFF) ; 

endfunc 

f unc modulo2 ( scall ) 

return ( (scall+1 ) - (scall+1) /2*2) ; 
endfunc 



include " conf subs . inc ' 
subroutines 



# conferencing 



# 
# 
# 
# 
# 
#- 



GETDID.VS - D121 line task 

Designed to work in concert with MAIN.VS 



dec 

include "datmod* inc" 
definitions 

include "global . inc " 
numbers 



var 

calls 

var 
var 

number 
var 
var 
var 
var 
var 
var 



code: 16 ; 

cnt : 3 ; 
vpline : 3 



netline 
dir:4 ; 
subs : 3 
call: 3 
mainpid 
did: 10 



var 1 ine : 3 



# SS96 library 

# define global variable 

# return value from function 

# general counter 

# voice processing line 

# network line number 

# call direction ( M In" / "Out u ) 

# subscriber number 

# call number 

# main task PID 

# DID 

# needed for scr stat 



end 
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program 

# Initializations 

vpline = arg{) ; 

line = vpline ; # debug only 

if (glb_get (MAINFLG) <> 99) # if first time 

initialization 

mainpid = glb_get (MAINPID) ; 

msg_put (mainpid, getpidO) ; # inform main 
task of our pid 

# wait for main task to be ready to go 
while (glb_get (MAINFLG) <> 99) 
endwhile 
endif 

# Begin call processing 

# enable jump to onsignal 
sc_use (vpline) ; 

# Set minimum detected wink duration to 50 msec (from 
100ms default) 

sc_setparm (vpline, 518, 5) ; 

# Set maximum detected wink duration to 300 msec (from 
200ms default) 

sc_setparm (vpline, 519, 30) ; 

# Turn on speech card function calls trace 

# sc_trace (vpline, 1) ; 

# Attempt to go onhook 

# do not allow disconnects to run onsignal 
sc_watch ( vpl ine , " + - " , 1 ) ; 

while ((code = sc_onhook (vpline) ) <> T_0NH) 

vos log ( "ERROR: "ficcode^" - onhook failure"); 
sleep (10) ; 

endwhile 

# Wait for message from main task indicating start of 
call 

for (;;) 

while (length (vpline = msg_get ( 3600) ) eq 0) 
endwhile 

if ( (vpline < GDIDBGN) or (vpline > GDIDEND) ) 
voslog ( "ERROR: invalid vpline number 
"&vpline&" message received") ; 
continue ; 

endif 
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while (length (netline = msg_get(3)) eg 0) 
endwhile 

if ( (netline < NETBGN) or {netline > NETEND) ) 
if ( (netline < ALTBGN) or (netline > 

ALT END) ) 

voslog ( "ERROR: invalid netline number 
"&netline&" message received") ; 

continue ; 
endif 
endif 

while (length (dir = msg_get(3)) eq 0) 
endwhile 

if {(dir strneq "In") and (dir strneq "Out")) 
voslog ("ERROR: invalid call direction 
"&dir&" message received") ; 

continue ; 
endif 

# set task debug screen status 
scr_stat { "G- "fcnetline) ; 

# defer hang up jump to onsignal 
sc_sigctl ( "d" ) ; 

# drive vpline receive from netline transmit 
if ((code = Scon(vpline, netline, SSAS_PASS, 

SSAL_N0) ) <> 0) 

voslog ( "Scon ( "&vpline&" , "&netline&") code 
" &code& n error " ) ; 
else 

voslog ( "Scon ( "&vpline&" , "Scnetlinefc" ) : 
"&Sstatus (vpline) ) ; 
endif 

# check for inbound call direction 
if (dir streq "In") 

# drive netline receive from vpline 

transmit 

if ((code = Scon(netline, vpline, 
SSAS.JPASS, SSAL_YES)) <> 0) 

voslog ( "Scon( "&netline&" , "&vpline&" ) 
code " &code& " error " ) ; 

else 

voslog ( "Scon ( "5cnetline&" , "&vpline&") : 
"fcSstatus (netline) ) ; 

endif 
endif 

# throw away deferred hang ups 
sc_sigctl { "c" ) ; 
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# check for outbound call direction 
if (dir streq "Out") 

while (length(subs = msg_get(3)) eq U) 

endwhile 

if ({subs < 0) or (subs > SUBSMAX) ) 

vos log ("ERROR: invalid subscriber 
number "&subs&" message received") ; 

continue ; 
endif 

while (length (call = msg_get(3)) eq 0) 
©ndwli i 1 © 

if ((call < 0) or (call > CALLMAX) ) 

voslog ( " ERROR : invalid call number 

"&call&" message received") ; 

continue ; 
endif 

# chain to CALLOUT if any calls inactive 
if ( (gib get (CALL1ACT+ subs) eq 0) 
or (glb""get (CALL2ACT+subs) eq 0) 
or (glb!get(CALL3ACT+subs) eq 0) 
or (glb_get (CALL4ACT+subs) eq 0)) 

# send net line number to CALLOUT 
msg_put(getpid() , net line) »" 

# send subscriber number to CALLOUT 
msg_put (getpidO , subs) ; 

# send call number to CALLOUT 
msg_put (getpidO , call) ; 

# replace ourself with CALLOUT 
chain ("CALLOUT", vpline) ; 

# call exceeds our capacity 
voslog ("sc_playtone (busy) .") ; 

# play busy tones for 20 seconds 
for (cnt = 1; cnt <= 20; <=nt++) 

sc_play tone (vpline, 480, 620, - 



else 



24, -24, 50) 



# delay between tones 

sleep (5) ; 
endf or 
hangup { ) ; 

# get next call to process 
continue ; 
endif 
endif 

# set up for later transition checks 
sc clrtrans (vpline) ; 
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# disable tone interruption 
sc_toneint (vpline, 0) ; 

# defer hang up jump to onsignal 
sc_sigctl ( n ( ■ ) ; 

# send wink to get DID 

while ((code = sc_wink (vpline) ) <> T_WINK) 

voslog( "ERROR: code "&code&" while sending 
wink on vpline "fcvpline) ; 

sleep (10) ; 

endwhile 

# set MF detection parameter 

# MF_setparm( vpline, 1, 0) ; # MF 

# switch to MF detection 

# sc_digitctl (vpline, 0, 1) ; # MF 

# MF_on (vpline) ; # MF 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# WATCH DIGIT COUNT ! ! ! 

if ((code = sc_getdigits (vpline, 7, 4, 1)) <> 
T_MAXDT) # DTMF 

# if ((code = sc_getdigits (vpline, 9, 4, 1)) <> 
T_MAXDT) # MF 

voslog { " ERROR : B €ccode&" - accessing DID 

failure" ) ; 

voslog ( "Incomplete DID: M &did&" : " ) ; 
hangup ( ) ; 
continue ; 
endif 

did = sc_digits (vpline) ; 
voslog (" Inbound DID: "fcdid) ; 

# switch back to DTMF detection 

# MF_off( vpline) ; # MF 

# sc_digitctl (vpline, 1, 1) ; # MF 

# allow deferred hang ups 
sc_sigctl ( " ) " ) ; 

# enable tone interruption 
sc.toneint (vpline, 1) ; 

# search global tables indexed by subscribers 
for (subs = 0; subs < SUBSMAX; subs++) 
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# check if processing a caller access 

number call , . . 

if (did streq glb_get (CALLER_DID+subs) ) 

# chain to CALL IN if any calls 

inactive ^ ^ (glb_get (CALLlACT+subs) eq 0) 

or (glb_get (CALL2ACT+subs) eq 0) 
or (glb_get(CALL3ACT+subs) eq 0) 
or (glb_get (CALL4ACT+subs) eq 0)) 

# send netline number to CALLIN 
msg_put (getpid( ) , netline) ; 

# send subscriber number to 

CALLIN mS g_put (getpid( ) , subs) ; 

# replace ourself with CALLIN 
chain ( ■ CALLIN " , vp 1 ine ) ; 

else 

break ; 
endif 
endif 

# check if processing a barger access 
number call ^ glb_get (BARGE_DID+subs) ) 

# chain to BARGER if barger inactive 
if ( (glb_get (BARGlSUB+subs) streq "") 
and ( g lb_ge t ( BARG2 SUB+ subs ) s t req " " ) ) 

# send netline number to BARGER 
msg_put (getpidO , netline) ; 

# send subscriber number to 

BARGER msg_put(getpid() , subs) ; 

# send initial pin entry string 

to BARGER ., „> . 

msg_put (getpid( ) , ) . 

# replace ourself with BARGER 
chain ( " BARGER " , vpl ine ) ; 

else 

break ; 
endif 
endif 
endf or 

if (subs < SUBSMAX) 

# DID found but call exceeds our capacity 
voslog ( " sc_playtone (busy) " ) ; 

# play busy tones for 20 seconds 
for (cnt = 1; cnt <= 20; cnt++) 

sc_playtone (vpline, 480, 62 0, -24, 

24, 50) ; 



# delay between tones 



* I 
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sleep (5) ; 
endf or 

else 

voslog( "ERROR: no match found for DID- 

n &did) ; 

# play reorder tones for 20 seconds 

voslog("sc_play tone (reorder) ") ; 

for (cnt = 1; cnt <= 40; cnt++) 

^ A ^ sc_play tone (vpline, 480, 620, -24, - 

24, 30) ; 

# delay between tones 
sleep (2) ; 
endf or 
endif 
hangup ( ) ; 
endf or 

end 

# 



# no onsignal needed 
#onsignal 

# voslog( "Onsignal" ) ; 

# hangup ( ) ; 

# restart ; 
#end 

f unc hangup ( ) 

# abort our multitasking calls in progress 
sc_abort (vpline) ; 

# wait for all our multitasking calls to finish 
for (code = 1; ( sc_s tat (vpline) <> 0) and (code <= 

20); code++) 

sleep (5) ; 
endf or 

if (sc_stat (vpline) <> 0) 

voslog( "ERROR: 10 seconds on vpline "&vpline£c" 
without idle status") ; 
endif 

# put vpline onhook 

while ((code = sc__onhook (vpline ) ) <> T_0NH) 

voslog( "ERROR: code "fccodefc" while putting 
vpline "ficvplineSc" onhook") ; 
sleep (10) ; 

endwhile 

voslog ("sc.onhook ( " Stvpline&t" ) " ) ; 



1 * 
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# remove vpline receive from net line transmit 
if {(code = Sbrk (vpline. netline, SSAS.ONHOOK, 

SSAL - N0) } voIlog("Sbrk(-&vplineSc" , "&netline&« ) code 
-&code£c" error") ; 

elSe voslog (" Sbrk ("&vpline&" , "&netline&") : 
"&Sstatus (vpline) ) ; 
endif 

# remove netline receive from vpline transmit 

# and enable netline SS96 alerting ^„ tnnv 
if ((code = Sbrk (netline, vpline, SSAS.ONHOOK, 

SSAL - YES> voslog( "Sbrk( "&netline&" , "&vpline&» ) code 
"&codefic" error") ; 

voslog ( "Sbrk ( "&netline&" , " tvplinet" ) : 
"&Sstatus (netline) ) ; 
endif 

# release net line /vpline allocations 
msg_put(mainpid, "D"&netline&vpline) ; 
if ((code = msg_get(3)) strneq "D-OK") 

voslog ("ERROR: code "&code&" when deallocating 
netline -fcnetline) ; 
endif 

# set task debug screen status 
scr_s tat ("Idle") ; 

endfunc 
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# 
# 
# 
# 
# 
#- 
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APPENDIX III 

SOURCE CODE LISTING OF A FORWARD TASK 
USED BY THE MAIN PROGRAM 



FORWARD. VS - D121 line task 

Designed to work in concert with MAIN.VS 



dec 

inc lude " datmod . inc " 
definitions 

include " global . inc " 
numbers 



var 
calls 

var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 



code: 16 ; 

vpline: 3 
netline:3 
mainpid:3 
subs : 3 ; 
call: 3 ; 
conf : 3 ; 
flash: 3 ; 
car : 3 ; 
sdate:7 ; 
stime:7 ; 
f wrdnum : 



var stats: 16 
status (conf subs) 
var line: 3 ; 

end 



20 



# SS96 library 

# define global variable 

# return value from function 



# subscriber number 

# toggling call number 

# conference number 

# flash DTMF digits 

# call analysis result 

# starting date 

# starting time 

# dialed forwarding number 

# beginning netline 

# needed for scr_stat 



program 

# Initializations 

vpline = arg() ; 

line = vpline ; 

if (glb_get (MAINFLG) <> 
initialization 



99) 



# debug only 

# if first time 



mainpid = glb_get (MAINPID) 



# inform main task of our pid 
msg_put (mainpid, getpid ( ) ) ; 
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# wait for main task to be ready to go 
while (glb_get (MAINFLG) <> 99) 
endwhile 

endif 

# Begin call processing 

sc__use (vpline) ; 

# Set minimum detected wink duration to 70 msec (from 
100ms default) 

sc_setparm (vpline, 518, 7) ; 

# Set maximum detected wink duration to 250 msec (from 
200ms default) 

sc_setparm( vpline, 519, 25) ; 

# Turn on speech card function calls trace 

# sc_trace (vpline, 1) ; 

# Wait for onhook complete 

sc_watch (vpline, "+-", 1) ; 

while ((code = s c_onho ok (vpline) ) <> T_0NH) 

vos log ( "ERROR: code "&code& w - onhook failure") 

sleep (10) ; 
endwhile 

# Wait for message from main task indicating start of 
call 

for {;;) 

# initialize netline in case of reorder 
netline = 0 ; 

# ignore disconnect 
sc_watch (vpline, w lw+-" , 1) ; 

while (length (vpline = msg_get (3 600) ) eq 0) 
endwhile 

if ( (vpline < FWRDBGN) or (vpline > FWRDEND) ) 
voslog( "ERROR: invalid vpline number 
"Scvplinefic" message received") ; 

# set forwarding inactive 

# (call not set 

yet) glb.set (FWRDlACT+SUBSMAX*call+subs , ) ; 
continue ; 
endif 

# get subscriber number 

while (length(subs = msg_get(3)) eg 0) 
endwhile 



■ » 
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if ((subs < 0) or (subs >= SUBSMAX) ) 

voslog ( "ERROR: invalid subscriber number 
"&subs&" message received") ; 

# set forwarding inactive 

# (call not set 

yet) glb_set ( FWRD1ACT+ SUBSMAX *call+ subs, "") ; 
continue ; 
endif 

# get call number 

while (length(call = msg_get<3)) eq 0) 
endwhile 

if ((call < 0) or (call >= FWRDMAX) ) 

voslog ("ERROR: invalid call number 
"&call&" message received") ; 

# set forwarding inactive 

# (call # 

invalid) glb_set (FWRDlACT+SUBSMAX*call+subs , " " ) ; 
continue ; 
endif 

# indicate dialing forwarding number 
glb_set (FWRDlANS+SUBSMAX*call+subs, 0) ; 

# check for "transparent" forwarding mode 
if (glb_get (FORWARD* subs) streq 

glb_get ( CALLER_DID+ subs ) ) 

# request outbound alternate netline 

allocation 

msg_put ( mainp id , " A ■ &vpl ine ) ; 
if ((code = msg_get(3)) strneq "A-OK" ) 
voslog ( "ERROR: code "&code&" when 
allocating outbound netline") ; 

# set forwarding inactive 
glb_set (FWRDlACT+SUBSMAX*call+subs, 



'") 



ALTEND) ) 



# set forwarding call unanswered 
glb__set (FWRDlANS+SUBSMAX*call+subs, 

# start voicemail without announcement 
start_voicemail (call, 0) ; 

continue ; 
endif 

# get allocated alternate netline 

while (length (netline = msg_get(3)) eq 0) 

endwhile 

if ({netline < ALTBGN) or (netline > 



voslog ( "ERROR: invalid alternate 
netline number "&netline&" message") ; 
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# set forwarding inactive 
glb_set (FWRDlACT+SUBSMAX*call+subs, 

# set forwarding call unanswered 
glb_set (FWRDlANS+SUBSMAX*call+subs, 



# release netline/vpline allocations 
dealloc ( ) ; 

continue ; 
endif 

else 

# request outbound netline allocation 
nisg_put (mainpid, H N"&vpline) ; 
if {(code = msg_get(3)) strneq "N-OK" ) 
voslog ( "ERROR : code " &code& " when 
allocating outbound netline") ; 

# set forwarding inactive 
glb_set (FWRDlACT+SUBSMAX*call+subs, 



ii n j 
it n j 



# set forwarding call unanswered 
glb_set (FWRDlANS+SUBSMAX*call+subs, 

# start voicemail without announcement 
start_yoicemail (call , 0) ,- 

continue ; 
endif 

# get allocated netline 

while (length (netline = msg_get(3)) eq 0) 
endwhile 

if { (netline < NETBGN) or (netline > 

NETEND) ) 

voslog ( "ERROR: invalid netline number 
"&netline&" message") ; 

# set forwarding inactive 
glb_set (FWRDlACT+SUBSMAX*call+subs, 



■< n ^ 

n n J 



# set forwarding call unanswered 
glb__set (FWRDlANS+SUBSMAX*call+subs, 

# release netline/vpline allocations 
dealloc () ; 

continue ; 
endif 
endif 

# set our netline active 

glb_set (FWRDlNET+SUBSMAX*call+subs, netline) 

#defer hang up jump to onsignal 
sc_sigctl("d") ; 
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# drive netline receive from vpline transmit 
if ((code = Scon(netline, vpline, SSAS PASS. 

SSAL_YES)) <> 0) ~~ 

voslog ( ■ Scon ( " &ne t line& " , ■ &vpline& " ) code 
M &code& " error " ) ; 
else 

voslog ( -Scon ( "&netline& n , "&vpline&" ) : 
"fcSstatus (netline) ) ; 
endif 

# drive vpline receive from netline transmit 
if ((code = Scon(vpline, netline, SSAS_PASS, 

SSAL_N0) ) <> 0) 

voslog ( w Scon( n &vpline&" , "&netline&" ) code 
" fiecodefc " error n ) ; 
else 

voslog ( "Scon ( M &vpline&" , "&netline& ,! ) : 
"fcSstatus (vpline) ) ; 
endif 

#throw away deferred hang ups 
sc_sigctl ( "c" ) ; 

# set task debug screen status 
scr_s tat { " F- " toe tline ) ; 

# save the initial time 
sdate = date ( ) ; 

stime = time() ; 
dial_fwrd: 

# go off hook 

if ((code = sc_pf f hook (vpline ) ) <> T_0FFH) 

voslog ( "ERROR: code "fccodefc" while putting 
vpline M &vpline&" offhook" ) ; 

goto retry ; 

else 

voslog ( "sc_off hook ( "&vplineSc" ) w ) ; 
endif 

# wait one second for next event report 
code = sc_wait (vpline, 10) ; 

voslog ( "sc_wait ( "&vpline& n , 10) = "&code) ; 

# check for loop current event report 
if (code <> T_LC0N) 

voslog ( "ERROR: Loop current timeout on 
vpline "fcvpline) ; 

goto retry ; 
endif 
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# wait one second for next event report 
code a sc_wait (vpline, 10) ; 
voslog( n sc_wait( M &vpline&" , 10) = "fccode) ; 

# check for wink event report 
if (code <> T_WKRECV) 

voslog ( "ERROR: Wink timeout on vpline 

"fcvpline) ; 

goto retry ; 
endif 

# get full dialing string for trunk group used 
if ( (netline >= NETBGN) and (netline <= 

NETEND) ) 

fwrdnum = 

glb_get (PSTN_PRE+subs) &glb_get (FORWARD* subs) &glb_get 
(PSTN_PST+subs) ; 
else 

fwrdnum = 

glb_get ( STRATUS_PRE ) &glb_get (FORWARD+subs) &glb_get 
(STRATUS__PST) ; 

endif 

voslog ( "Dialing forwarding number w &fwrdnum) ; 

# dial the forwarding number - wait until 
dialing completed 

if ((code = sc_dial (vpline, fwrdnum) ) <> 

T_DIAL) 

voslog ("ERROR: code "&code&" while dialing 
forwarding number") ; 
retry: 

if (timesub(date ( ) , time(), sdate r stime) 

<= 10) 

# put vpline onhook 

if ((code = sc_onhook (vpline) ) <> 

T_0NH) 

vos log ( M ERROR : code " &code& " 
while putting vpline f, &vpline&" onhook") ; 

else 

voslog ( "sc_onhook ( "&vpline&" ) " ) ; 
endif 

# wait for onhook recognition 
sleep (10) ; 

goto dial_fwrd ; 

else 

goto call_busy ; 
endif 
endif 
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# add our netline to current caller's 
conference 

add_conf (call, netline, LOGON) ; 

# set the initial time 
sdate = date() ; 
stime = time() ; 

# set call progress active (MAIN task needs 
glb_set (FWRDlCPA+SUBSMAX*call+subs, netline) ; 



netline) 



# start call analysis 
sc_call (vpline, tt , ■ ) ; 

# set call progress inactive 
glb_set (FWRDlCPA+SUBSMAX*call+subs, tt " ) ; 

# get call analysis result 
car = sc_getcar (vpline) ; 

switch (car) 

case CA_BUSY: # Called line is busy 

voslog("CAR - vpline "Scvplinek" is busy") 

case CA_N0AN: ' # Called line did not answer 
voslog("CAR - vpline M &vpline5c" did not 

case CA_NORNG: # Called line did not 

voslog("CAR - vpline w &vpline& n did not 

case CA_CONN: # Called line connected 

voslog("CAR - vpline M &vplineSc" 

connected" ) ; 

case CA_OPINT: # Called line received 

operator intercept 

voslog( n CAR - vpline "&vpline&" received 
operator intervept " ) ; 

case T_LCTERM: # MAIN task aborted CAR 

due to answer supervision 

voslog( n CAR aborted - vpline "&vpline&" 
answer supervision" ) ; 

endswitch 

# start voicemail if call busy 
if (car eq CA_BUSY) 

call_busy : 

# delete our netline from caller's 



answer " ) 
ring 
ring") ; 
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conference 

del_conf (call, netline, vpline, LOGOFF) ; 

# set forwarding call unanswered 
glb_set (FWRDlANS+SUBSMAX*call+subs, " - ) ; 

# abort possible caller's task sc_play 
sc_abort (glb_get (CALLlACT+SUBSMAX*cal 

1+subs) ) ; 

voslog ( "sc_abort ( "&glb_get (CALL1ACT 
+SUBSMAX*call+subs) &" ) " ) ; 

# add our vpline to caller's conference 
add_conf (call, vpline, LOGOFF) ; 

# play ' one moment please 1 message 
voslog ( " sc_play ( * one 

moment* (PR0720) .vox) "J ; 

sc_play (vpline, "PR0720 , vox" ) ; 

# delete our vpline from conference 
del_conf (call , vpline, netline, LOGOFF) ; 

# start voice mail without announcement 
start_voicemail (call, 0) ; 



# disconnect and look for new forwarding 



request 



hangup ( ) 
continue 
endif 



# check for maximum time for audio feedback 
from forwarding channel 

while ( timesub (date ( ) , time(), sdate, stime) < 

25) 

# check for answer supervision 
if (sc_stat (vpline, 9) eq 0) 

voslog ( "Answer supervision") ; 



# TEST - monitor forwarding answer 
if (glb_get (CALLERJDID+subs) streq 
# delete our netline from 
del_conf (call , netline, vpline, 



function 
"6545786") 

caller ' s conference 
LOGOFF) ; 

# abort possible caller's task 

sc__play 
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sc_abort (glb_get ( CALL 1 ACT 

+SUBSMAX*call+subs) ) ; 

voslog ("sc_abort ( M &glb get 
(CALLlACT+SUBSMAX*call+subs)&") ") ; ~ 

# add our vpline to caller's 

conference 

add_conf (call, vpline, LOGOFF) ; 

# play 'one moment please' 

message 

voslog ( " sc_play { ' one 
moment* (PR0720) .vox) n ) ; 

sc_play (vpline, " PR0720 . vox" ) ; 



conference 
LOGOFF) ; 

announcement 



# delete our vpline from 
del_conf (call, vpline, netline, 

# start voice mail without 



start_voicemail (call, 0) ; 
end if 
break ; 
end if 
endwhile 

# check for no answer supervision 
if (sc_s tat (vpline, 9) eq 1) 

# delete our netline from caller's 

conference 

del_conf (call, netline, vpline, LOGOFF) ; 

# abort possible caller's task sc_play 
sc_abort (glb_get (CALLlACT+SUBSMAX*cal 

1+subs) ) ; 

voslog ( M sc_abort ( "&glb_get (CALL1ACT 
+SUBSMAX*call+subs) &" ) ") ; 

# delete caller's netline from conference 
del_conf (call , 

glb_get (CALLlNET+SUBSMAX*call+subs ) , 

glb_get (CALLlACT+SUBSMAX*call+subs) , LOGON) ; 

# play 'one moment please' message to 
caller's netline 

voslog ( " sc_play ( ' one 
moment' (PR0720) .vox) " ) ; 

sc_play (glb_get (CALLlACT+SUBSMAX*call 
+subs), "PR0720. vox" ) ; 
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# add caller's netline to conference 
add_conf (call, 

glb_get <CALLlNET+SUBSMAX*call+subs) , LOGON) ; 

# start voice mail without announcement 
start_voicemail (call, 0) ; 



answer 
stime) < 64) 



tones 
30, 100) 



# check for maximum time for forwarding 
while (timesub (date ( ) , time(), sdate, 

# check for answer supervision 
if (sc_stat (vpline, 9) eq 0) 

voslog ( "Answer supervision") ; 
break ; 
endif 

# play awaiting answer supervision 
sc_playtone (vpline, 1000, 2000, -30, - 

endwhile 

# check for no answer supervision 
if (sc_stat (vpline, 9) eq 1) 

# set forwarding call unanswered 
glb_set (FWRDlMJS+SUBSMAX*call+subs, 



# disconnect and look for new 

forwarding request 

hangup { ) ; 
continue ; 
endif 
endif 

# TEST - monitor forwarding answer function 
if (glb_get (CALLER_DID+subs) streq "6545786") 
# now watch for disconnect (duplicated 



below) 



sc_watch (vpline, "dl+-", 1) ; 



# add our netline as listener to selected 

caller 1 s conference 

add_list (call, netline, LOGON) ? 

for (;;) 

# delete our netline as listener 
del_list (call , netline, vpline, 



LOGOFF) 



# play monitor mode beep to listener 
sc_playtone (vpline, 1000, 2000, -30, 
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*t>5 



30, 20) ; 

# add our netline as listener 
add_list (call, netline, LOGOFF) ; 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# space monitor beeps every 5 seconds 
while looking for tone input 

if ((code = sc_getdigits (vpline, 1, 5, 

1) ) eq T_MAXDT) 

# check for back out request 
if {(code = sc_digits (vpline) ) 

streq "#") 

# delete our netline as 
listener to selected caller's conference 

del_list (call , netline, 

vpline, LOGON) ; 
forwarding request 



# disconnect and look for new 



hangup ( ) ; 
continue ; 
endif 

# check for proceed request 
if (code streq "*") 

break; 
endif 
endif 
endf or 

# delete our netline as listener to 
current caller's conference 

del_list (call, netline, vpline, LOGON) 



conference 



conference 



100) 



conference 



# add our netline to current caller's 
add_ con f (call, netline, LOGON) ; 

# add our vpline to current caller's 
add_conf (call, vpline, LOGOFF) ; 

# play joining conference tones 
sc_playtone (vpline, 1000, 2000, -30, -30, 

voslog ( " sc_playtone (join conf ) " ) ; 

# delete our vpline from current caller's 
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del_conf {call, vpline, netline, LOGOFF) ; 

else 

# add our netline to current caller's 

conference 

add__conf (call, netline, LOGON) ; 
endif 

# stop voice mail if active 
stop_voicemail (call) ; 

# set voice mail task inactive and not run 
glb_set (MAILlACT+SUBSMAX*call+subs , ■ n ) ; 

# check for MAIN task stopping call progress 
due to answer supervision 

if (car <> T„LCTERM) 

# abort possible caller's task sc_play 
(e.g. ringing) 

sc_abort (glb_get (CALLlACT+SUBSMAX*cal 

1+subs)) ; 

voslog ( " sc_abort ( "&glb_get (CALL1ACT 
+SUBSMAX*call+subs)&") ") ; 

# request answer supervision be returned 

to caller 

glb_set(CALLlANS+SUBSMAX*call+subs, 

vpline) ; 

endif 

# set forwarding call answered 

glb_set (FWRDlANS+SUBSMAX*call+subs, vpline) ; 

# now watch for disconnect 
sc_watch (vpline, H dl+- M , 1) ; 

# check for barging subscriber inactive 

# and forwarding subscriber inactive 
if ( (glb_get (BARGlSUB+subs) streq "") 
and (glb_get (BARG2SUB+subs) streq n " ) 
and (glb_get (FWRDlSUB+subs) eq 0) 
and (glb_get (FWRD2SUB+subs) eq 0)) 

# must assume for now the subscriber 



answered 



netline) 



# set our forwarding subscriber active 
glb_set (FWRDlSUB+SUBSMAX*call+subs, 



# reset call waiting request 
glb_set (CALLWAIT+subs , " " ) ; 
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inactive 



/£7 

endif 

voslog( "Forwarding Conversation Loop") ; 
for (;;) 

# check for barging subscriber active 
if ( (glb_get (BARGlSUB+subs) strneq " " ) 
or (glb_get (BARG2SUB+subs) strneq n " ) ) 
# set both forwarding subscribers 



glb_.se t (FWRDlSUB+subs , 
glb_set (FWRD2SUB+subs / 



n n 
n n 



netline 



endif 

# check for subscriber active on our 

if ( (glb_get (FWRDlSUB+subs) eq netline) 
or (glb_get (FWRD2SUB+subs) eq netline)) 
# check for call waiting request 
if <glb_get(CALLWAIT+subs) <> 0) 
# reset call waiting request 
glb_set (CALLWAIT+subs, "") ; 



caller ' s conference 
LOGOFF) ; 

tones ' (1305) .vox) " ) 
three tones 



conference 



# delete our netline from 
del_conf (call , netline, vpline, 

voslog ( "sc_play ( 'call waiting 
sc_play (vpline, "PR1305 . vox" ) ; 

# add our netline to caller's 



endif 



add__conf (call, netline, LOGOFF) 



# check for selected caller active 
if 

(glb_get (CALLlACT+SUBSMAX*call+subs) <> 0) 

# selected caller active 

# check for unselected caller 

inactive 

if 

(glb_get (CALLlACT+SUBSMAX*modulo2 (call)+subs) eq 0) 

# selected caller 
active/unselected caller inactive 

# set unselected forwarding 

subscriber inac t ive 

glb_set (FWRD1SUB+SUBSMAX 
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*modulo2 (call) +subs, " " ) ; 

# release unselected caller 1 

conference if unused 

rel_conf (modulo2 (call) ) ; 
endif 

else 

# selected caller inactive 

# check for unselected caller 

inactive 

if 

(glb_get (CALLlACT+SUBSMAX*modulo2 (call) +subs) eq 0) 

# both callers inactive 

# set both forwarding 

glb_set (FWRDlSUB+subs , - - ) ; 
glb_set (FWRD2SUB+subs, ■ " ) ; 

# release unselected caller' 

rel_conf (modulo2 (call) ) ; 

# release selected caller's 



subs cr iber s inac t ive 

conference if unused 
conference if unused 



rel_conf (call) ; 

else 

# selected caller 
inactive/unselected caller active 

# check for three way 

conference 

if ( (glb_get (FWRDlSUB+subs) 

eq 0) 

or (glb_get (FWRD2SUB+subs ) 

eq 0)) 

# three way conference 

not active 

# do NOT set selected 
forwarding subscriber inactive here 

voslog( "TEST: Auto 

switch conference request") ; 

# switch to alternate 

call 

flash = "**" ; 
goto switch_conf ; 

else 

# three way conference 

active 

# set selected 

forwarding call inactive 



WO 96/09731 



+SUBSMAX*call+subs, " • ) ; 

forwarding subscriber inactive 
+SUBSMAX*call + subs, Hn ) ; 

caller's conference if unused 
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glb_set (FWRD1ACT 

# set selected 
glb_set (FWRD1SUB 

# release selected 
rel_conf (call) ; 

# select active call 
call = modulo2 (call) ; 



request 

request 
# 

request" ) 



endif 
endif 
endif 
endif 

# check for forwarding tone input 
sc_clrdigits (vpline) ; 

code = sc_getdigits (vpline, 2, 3, 2) ; 
if (code eq T_MAXDT) 

flash = sc_digits (vpline) ; 

# check for priority call waiting 

if (flash streq "##") 

# set priority call waiting 

glb_set (CALLWAIT+subs, -netline) 

voslog( "Priority call waiting 

endif 



# check for forced voice mail request 
if (flash streq "#9") 

# check for caller active 

if 

(glb_get(CALLlACT+SUBSMAX*call+subs) <> 0) 

# start voicemail with 

announcement 

request") ; 
switch_conf : 
netline 



start_voicemail (call, 1) ; 
endif 

voslog ( "Forced voice mail 
endif 

# check for subscriber active on our 
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netline) 
netline) ) 
request 

active 
not active 



/70 

if { (glb__get(FWRDlSUB+subs) eq 

or (glb_get (FWRD2 SUB + subs) eq 

# check for conference switch 

if (flash streq "**«) 

# check for unselected call 

# and three way conference 
if 



( (glb_get (CALLlACT+SUBSMAX*niodulo2 (call)+subs) <> 0) 

and ( (glb_get (FWRDlSUB+subs) 



eq 0) 
eq 0))) 

conference request") 
request 



or (glb_get (FWRD2SUB+subs) 
voslog ( " Switch 

# reset call waiting 
glb_set (CALLWAIT+subs , 



# delete our netline 

from selected caller's conference 

del_conf (call, netline, 

vpline, LOGON) ; 

# select next caller 
call = modulo2 (call) ; 



forwarding subscriber active 
+SUBSMAX*call+subs, netline) ; 
forwarding subscriber inactive 
+SUBSMAX*modulo2 (call) +subs, " n ) 

caller's conference if unused 



# set selected 
glb_set(FWRDlSUB 

# set unselected 
glb_set (FWRD1SUB 



forwarding 



# release unselected 
rel_conf (modulo2 (call) ) 

# stop selected call's 

s top_f orwarding ( call , 0 ] 
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# (FUTURE PROGRAMMABLE 

OPTION) 

# stop selected call's 

voice mail 

stop_yoicemail (call) ; 

# request answer 
supervision be returned to selected caller 

glb_set (CALL1ANS 

+SUBSMAX*call+subs, vpline) ; 

# set selected call's 

forwarding answered 

glb__set {FWRD1ANS 

+SUBSMAX*call+subs, vpline) ; 

# abort selected 
caller's possible sc_play in progress 

sc_abort (glb_get 

(CALLlACT+SUBSMAX*call+subs) ) ; 

voslog ( " sc_abort 
("&glb_get (CALLlACT+SUBSMAX*call+subs) &" ) " ) ; 



selected conference 
LOGOFF) ; 

conference tones 

1000, 2000, -30, -30, 100) ; 

conf)") ; 

selected conference 
netline, LOGOFF) ; 

selected caller's conference 
LOGON) ; 



# add our vpline to 
add_conf (call, vpline, 

# play joining 
sc_playtone (vpline, 
voslog ( " sc_playtone ( j oin 

# delete our vpline from 
del_conf ( call , vpline , 

# add our netline to 
add_conf ( call , netline , 



endif 
endif 

# check for conference switch 

request 

if (flash streq "#3") 
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active 
not active 
<> 0) 
<> 0) 
eq 0) 
eq 0))) 

conference request") 

request 
" w ) ; 



# check for both callers 

# and three way conference 
if ( (glb_get ( CALL 1ACT+ subs) 
and (glb_get ( CALL2ACT+subs ) 
and ( (glb_get (FWRDlSUB+subs) 

or (glb_get (FWRD2SUB+subs) 
voslog( "Three way 

# reset call waiting 
glb_set (CALLWAIT+subs , 



# request answer 

supervision be returned to both callers 

* glb_set (CALL1ANS 

+SUBSMAX*call+subs, vpline) ; 

glb_set (CALL1ANS 
+SUBSMAX*modulo2 (call)+subs, vpline) ; 



forwarding 

OPTION) 
mail 

(call)) ; 

subscribers active 
netline) ; 
netline) ; 

calls answered 
vpline) ; 



# stop selected call's 
stop_f orwarding (call, 0) 

# (FUTURE PROGRAMMABLE 

# stop unselected voice 
stop_voicen\ail (modulo2 

# set both forwarding 
glb_set (FWRDlSUB+subs , 
glb_set ( FWRD2 SUB + subs, 

# set both forwarding 
glb_set (FWRDlANS+subs , 
glb_set (FWRD2ANS+subs, 
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vpline) ; 

# set both forwarding 

netlines 

glb_set (FWRDlNET+subs, 

netline) ; 

glb_set (FWRD2NET+subs / 

netline) ; 

# delete unselected 
caller's netline from his conference 

del_conf (modulo2 ( call ) , 
glb_get (CALLlNET+SUBSMAX*modulo2 (call) +subs) , 
glb_get (CALLlACT+SUBSMAX*modulo2 (call) +subs) , LOGON) ; 

# get unselected 

caller's conference number 

conf = 

glb_get (CALLlCNF+SUBSMAX*modulo2 (call) +subs) ; 

# check for using active 

specified conference 

if ((conf > 0) and (conf 

<= CONFMAX) ) 

# check if 

unselected caller's conference still in use 

if 

( (glb_get (BARGlSUB+SUBSMAX*modulo2 (call)+subs) eq 0) 

and 

(glb_get (MAILlACT+SUBSMAX*modulo2 (call) +subs) eq 0) ) 

# request 

conference deallocation 

msg_put 

(mainpid, "E" &conf ) ; 

if ( (code = 

msg_get (3) ) strneq B E-OK°) 

voslog 

("ERROR: code n &code&" when deallocating conference 
"&conf) ; 

else 

voslog 

("Deallocating conference "&conf) ; 

# set 

unselected caller's conference inactive 

glb_set 

<CALLlCNF+SUBSMAX*modulo2 (call)+subs, " " ) ; 

endif 
endif 

else 

voslog ( "ERROR: 

deallocating inactive conference") ; 
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I1H 
endif 

# abort unselected 
caller's possible sc_play in progress 

sc_abort (glb_get 
(CALLlACT+SUBSMAX*modulo2 (call) +subs) ) ; 

voslog ( " sc_abort 
( M &glb_get (CALLlACT+SUBSMAX*modulo2 (call) +subs) &" ) n ) ; 



selected conference 
LOGOFF) ? 

conference tones 

1000, 2000, -30, -30, 100) 

conf)"} ; 

selected conference 
net line, LOGOFF) ; 



# add our vpline to 
add_conf (call, vpline, 

# play joining 
sc_playtone (vpline, 
voslog ( w sc_playtone ( j oin 

# delete our vpline from 
del_conf (call, vpline, 



# add unselected 
caller's netline to selected caller's conference 

add_conf (call, 
glb_get (CALLlNET+SUBSMAX*modulo2 (call) +subs) , LOGON) ; 

# check for unselected 

conference inactive 

if 

(glb_get (CALLlCNF+SUBSMAX*modulo2 (call) +subs) strneq " " ) 

voslog ( "TEST: 

Deselected conference 

w &glb_get (CALLlCNF+SUBSMAX*modulo2 (call) +subs) &" not 
inactive") ; 

endif 

# update unselected 
call er 1 s conference to selected caller's conference 

glb_set ( CALL 1 CNF 

+SUBSMAX*modulo2 (call) +subs, 

glb_get (CALLlCNF+SUBSMAX*call+subs) ) ; 

endif 
endif 
endif 
endif 
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# check for subscriber active on our 

netline 

if ( (glb_get (FWRDlSUB+subs) eq netline) 
or (glb_get (FWRD2SUB+subs) eq netline)) 

# check for either caller active 
if 

( (glb_get (CALLlACT+SUBSMAX*call+subs) eq 0) 

and 

(glb_get (CALLlACT+SUBSMAX*modulo2 (call) +subs) eq 0) ) 

hangup { } ; 
break ; 
endif 

else 

# check for caller and barger not 
active on this call 

if 

( (glb_get (CALLlACT+SUBSMAX*call+subs) eq 0) 

and 

(glb_get <BARGlSUB+SUBSMAX*call+subs ) eq 0)) 

hangup ( ) ; 
break ; 
endif 
endif 
endf or 
endf or 

end 

onsignal 

voslog ( "Onsignal" ) ; 
hangup ( ) ; 
restart ; 

end 

f unc hangup ( ) 

# abort our multitasking calls in progress 
sc_abort (vpline) ; 

# wait for all our multitasking calls to finish 
for (code = 1; ( sc_stat ( vpline) <> 0) and (code < = 

20) ; code++) 

sleep (5) ; 
endf or 

if (sc_stat (vpline) <> 0) 

voslog ( "ERROR: 10 seconds on vpline "Scvplinefc" 
without idle status") ; 
endif 

# put vpline onhook 

while ( (code = sc_onhook (vpline) ) <> T_0NH) 

voslog ( "ERROR: code "&code& n while putting 
vpline "&vpline&" onhook") ; 
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sleep (10) ; 
endwhile 

voslog ( M sc_onhook( M &vpline&" ) n ) ; 

# delete vpline from our conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# delete netline from our conference 
del_conf (call, netline, vpline, LOGON) ; 

# remove vpline receive from netline transmit 
if ((code = Sbrk(vpline, netline, SSAS_ONHOOK, 

SSAL NO) ) <> 0) 

voslog (" Sbrk (" &vpline& " , »&netline&" ) code 

"&code&" error") ; 

elSS voslogt "Sbrk( "&vpline&" , "&netline&" ) : 
"tSstatus (vpline) ) ; 
endif 

if ((netline >= NETBGN) and (netline <= NETEND) ) # 

# remove netline receive from vpline transmit 

# and enable netline SS96 alerting 

if {(code = Sbrk(netline, vpline, SSAS_0NH00K, 

SSAL_YES)) <> v 0 o ) slog( „ sbrkr&netline£c .. # .. &V pline&«) code 

- &code& " error " ) ; 

elSe voslog ("Sbrk ( "&netline&" , "&vpline&") : 
"&Sstatus (netline) ) ; 
endif 

6 SG # remove netline receive from vpline transmit 

# and disable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_ONHOOK, 

SSAL-NO)) <> O v ) oslog( , isbrk( .. £cnetline& ..,» & vpline£c«) code 
"5cCode&" error") ; 

elSe voslog ("Sbrk ("ScnetlineSc", "&vpline&") : 

"fcSstatus (netline) ) ; 
endif 
endif 

# release netline/vpline allocations 
dealloc ( ) ; 



# check for active call 
if lea] 
# 

our netline 



if (call strneq "") 

# check for forwarding subscriber answered on 
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if ( (glb_get (FWRDlSUB+subs) eq netline) 
or (glb_get (FWRD2SUB+subs) eq netline)) 

# set forwarding subscribers inactive 
glb_set ( FWRDlSUB+subs , " " ) ; 

glb_set (FWRD2SUB+subs, " " ) ; 
end if 

# set our netline inactive 

glb_set (FWRDlNET+SUBSMAX*call+subs , - " ) ; 

# set our call progress inactive 
glb_set (FWRDlCPA+SUBSMAX*call+subs, " » ) ; 

# check for forwarding answered 

if (glb_get (FWRD1ANS+SUBSMAX* call* subs) <> 0) 

# set forwarding task inactive and stopped 

(do last) 

glb_set (FWRDlACT+SUBSMAX*call+subs, 0) ; 

else 

# set forwarding task inactive (do last) 
glb_set (FWRDlACT+SUBSMAX*call+subs, " " ) ; 

endif 
end if 



# release caller's conference if unused 
rel_conf (call) ; 

# set task debug screen status 
scr_stat ( "Idle" ) ; 

endfunc 

func deallocO 

# release netline/vpline allocations 
msg_put (mainpid, n D M &netline&vpline) ; 
if ((code = msg_get(3)) strneq "D-OK") 

voslog( "ERROR: code "&code&" when deallocating 
netline "fcnetline) ; 

endif 
endfunc 



func stop_f orwarding (scall, sforce) 

# check for not forced stop request 

# and for forwarding answered 

# and for not "transparent" forwarding mode 
if ( (sforce eq 0 ) 

and (glb_get (FWRDlANS+SUBSMAX*scall + subs) <> 0) 
and (glb_get (FORWARD+subs) strneq 
glb_get (CALLER__DID+subs ) ) ) 
return; 
endif 



WO9«09731 PCIYUS95/12318 

sem_set ( SEM_FWRD+ subs ) ; 

# check for forwarding active 

if (glb_get (FWRDlACT+SUBSMAX*Scall+subs) <> 0) 
voslog ( " stop_f orwarding ( ) " ) ; 

# delete forwarding netline from caller's 

conference 

del_conf ( scall , 
gib get(FWRDlNET+SUBSMAX*scall+subs) , 
glbIget(FWRDlACT+SUBSMAX*scall+subs) , LOGON) ; 

# set call answered so forward task marks 

itself inactive and stopped . 

g lb_set(FWRDlANS+SUBSMAX*call+subs, vpline) ; 

# abort forwarding task 

sc_hangup (glb_get (FWRDlACT+SUBSMAX*scall+subs) ) 

voslog ( " sc_hangup ( " &glb_get ( FWRD1ACT+SUBSM 
AX*scall+subs)&") ") ; 

# set forwarding task inactive and stopped 
glb_set (FWRDlACT+SUBSMAX*scall+subs, 0) ; 

endif 

sem_c 1 ear (SEM_FWRD+ subs) ; 
end fun c 

func start_voicemail (scall, smsg) 
# check for voice mail active 

if (glb_get(MAILlACT+SUBSMAX*scall+subs) eq 0) 

# request voice mail vpline task be started 
msg_put (mainpid, «V"&scall&subs) ; 

code = msg_get(3) ; 

if (substr(code, 1, 1) strneq n V) 

voslog ( "ERROR: code "&code&" when 
allocating voice mail vpline") ; 
else 

# set voice mail task active 
glb_set (MAILlACT+SUBSMAX*scall+subs, 

substr(code, 2, 99)) ; 

if (smsg <> 0) 

# add our vpline to conference 
add_conf (scall, vpline, LOGOFF) ; 

# play 'connecting to voice mail' 
message voslog ( "sc_play ( 1 to voice 

mail ' (030) .vox) " ) ; 
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sc_play (vpline, "PR0030 . vox" ) ; 



LOGOFF) 



# delete our vpline from conference 
del_conf (scall, vpline, netline, 



end if 
end if 
end if 
endfunc 

func stop_voicemail (scall) 

sem.set (SEM_ MAIL+subs) ; 

# check for voice mail active 

if <glb_get (MAILlACT+SUBSMAX*scall+subs) <> 0) 
voslog ( M stop_voicemail ( ) ") ; 

# delete voice mail netline from caller" s 
conference 

del_conf ( scall , 
glb_get (MAILlNET+SUBSMAX*scall+subs) , 
glb_get (MAILlACT+SUBSMAX*scall+subs) , LOGON) ; 

# abort voice mail task 

sc_hangup (glb_get (MAILlACT+SUBSMAX*scall+subs) ) 

voslog (°sc„hangup ( "&glb_get (MAIL1ACT+SUBSM 
AX*scall+subs)&" ) " ) ; 

# set voice mail task inactive and stopped 
glb_set (MAILlACT+SUBSMAX*scall+subs, 0) ; 

endif 

sem.clear (SEM_MAIL+subs) ; 
endfunc 

func modulo2 { scall ) 

return ( (scall+1) - (scall+1) /2*2) ; 
endfunc 

include "conf subs . inc" # conferencing 

subroutines 
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APPENDIX IV 



SOURCE CODE LISTING OF A PAGE TASK 
USED BY MAIN PROGRAM 



# 
# 
# 
# 
#- 



PAGE.VS - D121 line task 

Designed to work in concert with MAIN.VS 



dec 

inc lude " datmod . inc " 
definitions 

include " global . inc w 
numbers 

var code: 16 ; 
calls 

var vpline:3 ; 
var netline:3 ; 
var mainpid:3 ; 
var subs : 3 ; 
var sdate:7 ; 
var stime:7 ; 



var line: 3 



# SS96 library 

# define global variable 

# return value from function 



# subscriber number 

# starting date 

# starting time 

# needed for scr stat 



end 



program 

# Initializations 

vpline = arg() ; 

line = vpline ; 

if (glb_get (MAINFLG) <> 99) 
initialization 

mainpid = glb_get (MAINPID) 



# . debug only 

# if first time 



# inform main task of our pid 
insg_jput (mainpid, getpid ( ) ) ; 

# wait for main task to be ready to go 
while (glb_get (MAINFLG) <> 99) 
endwhile 

endif 



# Begin call processing 
sc_use (vpline) ; 
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# Set minimum detected wink duration to 50 msec (from 
100ms default) 

sc_setparm (vpline, 518, 5) ; 

# Set maximum detected wink duration to 300 msec (from 
200ms default) 

sc_setparm (vpline, 519, 30) ; 

# Turn on speech card function calls trace 

# sc_trace (vpline, 1) ; 

# Attempt to go on-hook 

sc_watch (vpline, ,, + - w , 1) ; 

while ((code = sc_onhook (vpline) ) <> T_0NH) 

voslog ( "ERROR: "&code&" - onhook failure") ; 
sleep (10) ; 

endwhile 

# Wait for message from main task indicating start of 
call 

for (;;) 

# ignore disconnects 
sc_watch (vpline, n lw+-", 1) ; 

while (length (vpline = msg_get (3600) ) eq 0) 
endwhile 

if ( (vpline < PAGEBGN) or (vpline > PAGEEND) ) 
voslog ( "ERROR: invalid vpline number 
"&vpline&" message received") ; 
continue ; 
endif 

while (length(subs = msg_get(3)) eq 0) 
endwhile 

if ((subs < 0) or (subs >= SUBSMAX) ) 

voslog ( "ERROR: invalid subscriber number 
"&subs&" message received") ; 

continue ; 
endif 

# ask alternate outbound netline be allocated 
msg_put (mainpid, "A"&vpline) ; 

if ((code = msg_get(3)) stmeq "A-OK") 
voslog ( "ERROR: code M &code&" when 
allocating outbound netline") ; 
continue; 

endif 

# get allocated netline 

while ( length (netline = msg_get(3)) eq 0) 
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endwhile 

if ((netline < ALTBGN) or (netline > ALTEND) ) 
voslog( "ERROR: invalid netline number 

°&netline& M message") ; 

# release netline/vpline allocations 

dealloc() ; 
continue ; 
endif 

#defer hang up jump to onsignal 
sc_sigctl("d") ; 

# drive vpline receive from netline transmit 
if ((code = Scon(vpline, netline, SSAS_PASS, 

SSAL_N0) ) <> 0) 

voslog( "Scon( n &vpline&" , "&netline& w ) code 

"&code&" error") ; 
else 

voslog("Scon( tt &vpline& , \ "&netline&" ) : 
-ficSstatus (vpline) ) ; 
endif 

# drive netline receive from vpline transmit 
if ((code = Scon(netline, vpline, SSAS_PASS, 

SSAL_N0) ) <> 0) . . , ^ 

vas^gC^^^^ne^^^" , "&vplme& tt ) code 

"&codeSc" error") ; 
else 

voslogCSconC'&netlineSc" , H &vpline&") : 
"&Sstatus (netline) ) ; 
endif 

# throw away deferred hang ups 
sc_sigctl( M c w ) ; 

# set task debug screen status 
scr__stat ( "P-"&netline) ; 

# save the initial time 
sdate = date() ; 

stime = time( ) ; 
dial_page: 

# go off hook 

if ((code = sc_offhook (vpline) ) <> T_0FFH) 

vos log ( "ERROR: code "&code&" while putting 
vpline "Scvplinefc" offhook") ; 

goto retry ; 

else 

voslog( ,, sc_offhook( ,, &:vpline£c n ) " ) ; 
endif 
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# wait one second for next event report 
code = sc_wait (vpline, 10) ; 

voslog ("sc_waitC , &vpline& M ,10) = "&code) ; 

# check for loop current event report 
if (code <> T_LC0N) 

vos log ( "ERROR: Loop current timeout on 
vpline "fcvpline) ; 

goto retry ; 
endif 

# wait one second for next event report 
code = sc_wait (vpline, 10) ; 

voslog ( "sc_wait ( "&vpline&" ,10) = "&code) ; 

# check for wink event report 
if (code <> T_WKRECV) 

voslog ( "ERROR: Wink timeout on vpline 

"fcvpline) ; 

goto retry ; 
endif 

voslog ("Dialing pager "&glb_get (PAGER+subs) ) ; 

# call the paging system - wait for completion 
if ((code = sc_dial (vpline, 

glb_get ( STRATUS__PRE) &glb_get ( PAGER+subs ) &glb_get 
(STRATUS_PST) ) ) <> T_DIAL) 

voslog ( "ERROR: code "&code&" while dialing 

pager") ; 

goto retry ; 
endif 

# wait 18 seconds for next event report 
code = sc_wait (vpline, 180) ; 

voslog ( "sc_wait ( "fcvplineSc" , 180) = M &code) ; 

# check for loop current event report 
if (code <> T_LC0N) 

voslog ( "ERROR: Answer supervision timeout 
on vpline "fcvpline) ; 
retry: 

if (timesub(date() , time ( } , sdate, stime) 

<= 10) 

# put vpline onhook 

if ((code = s c_onho ok (vpline) ) <> 

T__0NH ) 

voslog ( "ERROR: code "&code&" 
while putting vpline "&vpline&" onhook") ; 

else 

voslog ( "sc_onhook( "&vpline&" ) " ) ; 
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endif 

# wait for onhook recognition 
sleep (10) ; 

goto dial_page ; 

else 

# disconnect 
hangup ( ) ; 

# look for next page request 
continue ; 

endif 

else 

voslog ( "Answer supervision" ) ? 
endif 

# now watch for disconnect 
sc_watch(vpline, "dl+- M , 1) ; 

# delay for paging system to give proceed 
sleep(20) ; 



signal 



voslog ( "Sending to pager caller number 
" &glb_get (CALLER_NUMB+subs ) ) ; 

# enter caller* s number into paging system 
while ( (code = sc_dial (vpline, 
glb_get (CALLER_NUMB+subs) ) ) <> T_DIAL) 

voslog ("ERROR: code "&code& fl while sending 
Caller ID to paging system") ; 

sleep (10) ; 
endwhile 



ONLY?) 



# delay for paging system to disconnect (TEST 
sleep(40) ; 



# disconnect 
hangup ( ) ; 
endf or 

end 

onsignal 

voslog { "Onsignal H ) 
hangup ( ) ; 
restart ; 

end 



f unc hangup ( ) 
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# abort our multitasking calls in progress 
sc_abort (vpline) ; 

# wait for all our multitasking calls to finish 
for (code = 1; (sc_stat (vpline) <> 0) and (code <= 

20) ; code++) 

sleep (5) ; 
endf or 

if (sc_stat (vpline) <> 0) 

voslog ( "ERROR: 10 seconds on vpline "&vpline&" 
without idle status") ; 
endif 

# put vpline onhook 

while ((code = sc_onhook (vpline) ) <> T_ONH) 

voslog ( "ERROR: code "Sccodefc" while putting 
vpline "fcvplinefc" onhook") ; 
sleep (10) ; 
endwhile 

voslog ( "sc_onhook( "&vpline&" ) " ) ; 

# remove vpline receive from netline transmit 
if ((code = Sbrk(vpline, netline, SSAS_0NH00K, 

SSAL_NO)) <> 0) 

voslog (" Sbrk { tt &vpline&" , "&netline&" ) code 
"fccodefc" error") ; 
else 

voslog ( "Sbrk( "&vpline&" , n Scnetline& n ) : 
"ScSstatus (vpline) ) ; 
endif 

if ((netline >= NETBGN) and (netline <= NETEND) ) ^ 

# remove netline receive from vpline transmit 

# and enable netline SS96 alerting 

if ((code = Sbrk (netline, vpline, SSAS_ONHOOK, 
SSAL_YES}) <> 0) 

voslog ( "Sbrk ( "Scnetlineit" , "&vpline&") code 
"&code&" error") ; 

else 

voslog { "Sbrk ( "&netline& 11 , "tvplineSc" ) : 
"ScSstatus (netline) ) ; 
endif 

else 

# remove netline receive from vpline transmit 

# and disable netline SS96 alerting 

if ((code = Sbrk{netline f vpline, SSAS_ONHOOK, 
SSAL.NO) ) <> 0) 

voslog ( "Sbrk{ "&netline&" , "&vpline&" ) code 
"&code& n error") ; 

else 

voslog( "Sbrk( "&netline&" , "&vpline&c" ) : 
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"&Sstatus (netline) ) ; 
endif 
endif 

# release netline/vpline allocations 
dealloc() ; 

# set task debug screen status 
scr_stat ("Idle") ; 

endfunc 

func dealloc{) 

# release netline/vpline allocations 
msg_jput (mainpid, "D M &netline&vpline) ; 

if ((code = msg_get(3)) strneq "D-OK" ) 

voslog { " ERROR: code "fccodefc" when deallocating 
netline " fcnetline) ; 

endif 
endfunc 
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APPENDIX V 

SOURCE CODE LISTING OF A VOICE MAIL TASK 
USED BY THE MAIN PROGRAM 



# 

# VMAIL.VS - D121 line task 
# 

# Designed to work in concert with MAIN.VS 
# 

# 



dec 

inc lude ■ da tmod . inc " 
definitions 

include "global . inc M 
numbers 

var code: 16 ; 
calls 

var vpline:3 ; 
var netline:3 ; 
var mainpid:3 ; 
var subs : 3 ; 
var call: 3 ; 
var conf : 3 ; 
var sdate : 7 ; 
var stime:7 ; 

var stats: 16 ; 
status (conf subs) 
var line : 3 ; 

end 

program 

# Initializations 

vpline = arg() ; 
line = vpline ; # debug only 

if (glb_get (MAINFLG) <> 99) # if first time 

initialization 

mainpid = glb_get (MAINPID) ; 

msg_put (mainpid, getpidO) ; # inform main 
task of our pid 

# wait for main task to be ready to go 
while (glb_get (MAINFLG) <> 99) 



# SS96 library 

# define global variable 

# return value from function 



# subscriber number 

# call number 

# conference number 

# starting date 

# starting time 

# beginning netline 

# needed for scr_stat 
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in 

endwhile 
endif 

# Begin call processing 

sc.use (vpline) ; 

# Set minimum detected wink duration to 50 msec (from 
100ms default) 

sc_setparm (vpline, 518, 5) ; 

# Set maximum detected wink duration to 300 msec (from 
200ms default) 

sc_setparm( vpline, 519, 30) ; 

# Turn on speech card function calls trace 

# sc.trace (vpline, 1) ; 

# Wait for onhook complete 

scratch (vpline, "+-" , 1) ; 

while ((code = sc_pnhook (vpline) ) <> T_0NH) 

voslog( "ERROR: code "fccodeSc" - onhook failure") 

sleep (10) ; 
endwhile 

# Wait for message from main task indicating start of 
call 

for (;;) 

# initialize netline in case of reorder 
netline = 0 

# ignore disconnect 
sc_watch (vpline, "lw+- n , 1) ; 

while (length (vpline = msg_get (3600) ) eq 0) 
endwhile 

if ( (vpline < MAILBGN) or (vpline > MAILEND) ) 
voslog ( "ERROR : invalid vpline number 
"Scvplinefc" message received") ; 

# set voice mail inactive and stopped 

# (call not set 

yet) glb_set (MAILlACT+SUBSMAX*call+subs , 0) ; 
continue ; 
endif 

# get subscriber number 

while (length(subs = msg_get(3)) eq 0) 
endwhile 

if ((subs < 0) or (subs >= SUBSMAX) ) 

voslog ( "ERROR: invalid subscriber number 
M &subs&" message received") ; 
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# set voice mail inactive and stopped 

# (call not set 

yet) glb_set (MAILlACT+SUBSMAX*call+subs, 0) ; 
continue ; 
endif 

# get call number 

while (length(call = msg_get{3)) eq 0) 
endwhile 

if ((call < 0) or (call >= CALLMAX) ) 

voslog( "ERROR: invalid call number 
"&call&" message received") ; 

# set voice mail inactive and stopped 

# (call # 

invalid) glb_set (MAILlACT+SUBSMAX*call+subs, 0) ; 
continue ; 
endif 

# request outbound netline allocation 
msg_put (mainpid, "A"&vpline) ; 

if ((code = msg_get(3)) strneq "A-OK") 
voslog( "ERROR: code n &code&" when 
allocating outbound netline") ; 

play_reorder (call) ; 

# set voice mail inactive and stopped 
glb_set (MAILlACT+SUBSMAX*call+subs , 0 ) ; 

# release caller's conference if unused 
rel_conf (call) ; 

# get next vmail task request 
continue ; 

endif 

# get allocated netline 

while (length (netline = msg_get (3) ) eq 0) 
endwhile 

if ((netline < ALTBGN) or (netline > ALTEND) ) 
vos log ( "ERROR: invalid netline number 
n &netline& M message") ; 

play_r eorder (call) ; 

# release netline/vpline allocations 
deallocO ; 



# set voice mail inactive and stopped 
glb_set (MAILlACT+SUBSMAX*call + subs, 0) ; 
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in 

# release caller's conference if unused 
rel_conf (call) ; 

# get next vmail task request 
continue ; 

endif 

# set voice mail netline 

glb_set (MAILlNET+SUBSMAX*call+subs, netline) ; 

# defer hang up jump to onsignal 
sc_sigctl( M d") ; 

# drive alternate netline receive from vpline 

transmit „ , ™«r. 

if ((code = Scon(netline, vpline, SSASJPASS, 

SSAL_NO) ) <> 0) 

voslog ( B Scon( n &netline&" , M &vpline& w ) code 

n &code&" error") ; 
else 

voslog ("Scon ( "fcnetlinefic" , "&vpline&" ) : 
"&Sstatus (netline) ) ; 
endif 

# drive vpline receive from alternate netline 

transmit n . 

if ((code = Scon(vpline, netline, SSAS_PASS, 

SSAL NO) ) <> 0) , 
~ voslog (" Scon ( "&vpline&" , "&netline&" ) code 

n &code&" error") ; 

else «. . 

voslog ( "Scon { w Scvpline£c" , "Scnetlmefc" ) : 

"fcSstatus (vpline) ) ; 
endif 

# throw away deferred hang ups 
sc_sigctl("c" ) ; 

# set task debug screen status 
scrjstat ("V-"&netline) ; 

# save the initial time 
sdate = dateO ; 

stime = timeO ; 

dial_mail : 

# go off hook 

if ((code = sc_offhook (vpline) ) <> T^OFFH) 

voslog ("ERROR: code "&codeSc n while putting 
vpline "&vpline&" offhook") ; 

goto retry ; 

else 
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voslog( "sc_of fhook( "&vpline&" ) ) ; 
endif 

# wait one second for next event report 
code = sc_wait (vpline, 10) ; 

voslog ( "sc_wait ( "&vpline&" , 10) = "&code) ; 

# check for loop current event report 
if (code <> T_LC0N) 

voslog ( "ERROR: Loop current timeout on 
vpline "&vpline) ; 

goto retry ; 
endif 

# wait one second for next event report 
code = sc_wait (vpline, 10) ; 

voslog ( "sc_wait ( "&vpline& " ,10) = "fccode) ; 

# check for wink event report 
if (code <> T_WKRECV) 

voslog ( "ERROR: Wink timeout on vpline 

"fcvpline) ; 

goto retry ; 
endif 

voslog ( "Dialing voice mail number 
"&glb_get (VOICEMAIL+subs) ) ; 

# dial the voice mail number - wait until 
dialing complete 

if ((code = sc_dial (vpline, 
glb_get (STRATUS_PRE) &glb_get (VOICEMAIL+subs ) &glb_get 
(STRATUS_PST) ) ) <> T_DIAL) 

voslog ( "ERROR: code "&code&" while dialing 
voice mail number") ; 

goto retry ; 
endif 

# add voice mail netline to current caller's 
conference 

add__conf (call , netline, 1) ; 

# wait 18 seconds for next event report 
code = sc_wait (vpline, 180) ; 

voslog ( "sc_wait ( "&vpline&" , 180) = "&code) ; 

# check for loop current event report 
if (code <> T_LC0N) 

voslog ( "ERROR: Answer supervision timeout 
on vpline "fcvpline) ; 
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f9Z 



retry: 
<= 10) 

T_ONH) 



# delete netline from our conference 
del_conf (call, netline, vpline, 1) ; 

if (timesub(date() , timed, sdate, stime) 

# put vpline onhook 

if ({code = sc_pnhook (vpline) ) <> 



message 



vos log ( "ERROR: code "fccodefc" 
while putting vpline n Scvplinefic" onhook") ; 

else 

voslog( "sc_onhook( n &vpline&" ) " ) 
endif 

# wait for onhook recognition 
sleep (10) ; 

goto dialjnail ; 

else 

# disconnect and look for next vmail 

hangup { ) ; 
continue ; 
endif 

else 

voslog ( "Answer supervision" ) ; 
endif 

# request answer supervision be returned to 
glb_set (CALLlANS+SUBSMAX*call+subs, vpline) ; 

# now watch for disconnect 
sc_watch (vpline, "dl+- H , 1) ; 

for {;;) 

# check for caller inactive 

# and barger inactive 

# and forwarding inactive 
if (((call >= CALLMAX ) or 

(glb_get (CALLlACT+SUBSMAX*call+subs) eq 0)) 

and ((call >= BARGMAX) or 
(glb_get (BARGlSUB+SUBSMAX*call+subs) eq 0)) 

and ({call >= FWRDMAX) or 
(glb_get (FWRDlACT+SUBSMAX*call+subs) eq 0))) 

hangup ( ) ; 
break ; 
endif 
endf or 
endf or 

end 



caller 



WO 96/09731 PCT/US95/12318 

m 



onsignal 

voslog ( "Onsignal" ) ; 
hangup ( ) ; 
restart ; 

end 

func hangup () 

# abort our multitasking calls in progress 
sc_abort (vpline) ; 

# wait for all our multitasking calls to finish 
for (code = 1; ( sc_s tat (vpline) <> 0) and (code < = 

20); code++) 

sleep (5) ; 
endfor 

if (sc_stat (vpline) <> 0) 

voslog ( "ERROR: 10 seconds on vpline "&vpline&" 
without idle status") ; 
end if 

# put vpline onhook 

while {(code = sc_onhook (vpline) ) <> T_0NH) 

voslog ("ERROR: code "&code&" while putting 
vpline "ScvplineSc" onhook") ; 
sleep (10) ; 
endwhile 

voslog ( "sc_onhook( "&vpline&" ) " ) ; 

# delete netline from our conference 
del_conf (call, netline, vpline, 1) ; 

# remove vpline receive from netline transmit 
if ((code = Sbrk(vpline, netline, SSAS_0NH0OK, 

SSAL_N0) ) <> 0) 

voslogC Sbr k ( " &vpl ine& " , " &ne 1 1 ine& H ) c ode 
"fccodefc" error") ; 
else 

voslog ( "Sbrk< "&vpline&" , "&netline&" ) : 
"fcSstatus (vpline) ) ; 
endif 

if { (netline >= NETBGN) and (netline <= NETEND) ) 

# remove netline receive from vpline transmit 

# and enable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_0NH00K, 

SSAL_YES) ) <> 0) 

voslog ( "Sbrk( n &netline&" , "&vpline&" ) code 

"Sccodefc" error" ) ; 
else 

voslog ( "Sbrk( °&netline& M , "Scvplinefc" ) : 
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"&Sstatus (netline) } ; 
endif 

else 

# remove netline receive from vpline transmit 

# and disable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_0NH0OK, 
SSAL_N0)) <> 0) 

voslog("Sbrk( M &netline&" , "&vpline&M code 
w &code&" error") ; 

else 

voslog("Sbrk( ,, &netline&" , tt &vpline& n ) : 
"fcSstatus (netline) ) ; 
endif 
endif 

# release netline/vpline allocations 
dealloc ( ) ; 

if (call strneq 

# set voice mail netline inactive 
glb_set (MAILlNET+SUBSMAX*call+subs , " " ) ; 

# check for request for voicemail to not be 
marked as not having run 

i f ( glb_ge t (MAIL1ACT+SDBSMAX* cal 1 + subs ) s trneq 

it ti ^ 

# set voice mail inactive but stopped (do 

last) 

glb_set (MAILlACT+SUBSMAX*call+subs, 0) ; 
endif 
endif 

# release selected conference if unused 
rel_conf (call) ; 

# set task debug screen status 
scr__s tat ("Idle") ; 

endfunc 

func dealloc () 

# release netline/vpline allocations 
msg_put (mainpid, M D"&netline&vpline) ; 
if ((code = msg_get(3)) strneq "D-OK") 

voslog ( "ERROR: code "&code&" when deallocating 
netline "fcnetline) ; 

endif 
endfunc 

func play_reorder (scall) 

# add our vpline to caller's conference 
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add_conf (scall , vpline, 0) ; 

voslog< "sc_play tone (reorder) ") ; 

# play reorder tones for 20 seconds 
for (code = 1; code <= 40; code++) 

sc_playtone (vpline, 480, 620, -24, -24, 30) ; 
# delay between tones 
sleep (2) ; 
endf or 

# delete our vpline from caller's conference 
del_conf (scall, vpline, netline, 0) ; 

endfunc 

func modulo2 (scall) 

return ( (scall+1) - (scall+1) /2*2) ; 
endfunc 

include " conf subs . inc " # conferencing 

subroutines 
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APPENDIX VI 

SOURCE CODE LISTING USED BY INBOUND TASK 
FOR PHONE NUMBER PLAYBACK 



# spk_9: Speak one digit 
# 

# ARGUMENT 

# a_num Digit to speak 0..9,*,# 
# 

# RETURNS 

# Return code from sc_play 

# No attempt is made to validate the a_num argument. 

f unc spk_9 ( a_num ) 

if (a num streq "*") . 
Return sc_play (line, "c : \vos\src\ STAR. vox" ) ; 

endif 

if (a num streq "#") 

return sc_play (line, "c : \vos\src\ POUND. vox" ) ; 

endif 

return sc_play (line, 
"c:\vos\src\PR0"&(189+a_num)&" .vox") ; 

end 
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APPENDIX VII 

SUBROUTINE LISTING DEFINING CONSTANTS 
AND VARIABLES USED BY ALL TASKS 



# 



GLOBAL . INC 



# Global variables 



const 

const 
calls per 

const 
calls per 

const 
calls per 

const 
calls per 

const 
(16 x 6way 



SUBSMAX = 7 ; 
CALLMAX = 4 ; 
subscriber 
BARGMAX = 2 j 
subscriber 
FWRDMAX = 2 ; 
subscriber 
MAILMAX = 4 , 
subscriber 
CONFMAX = 16 
= maximum) 



const NETBGN =25 
channel 

# const NETEND =28 
channel (654-521x) 

const NETEND = 34 
channel (654-578x) 



const ALTBGN = 73 ; 
alternate channel 

const ALTEND =82 ; 
channel 



const 

vpline 

const 
const 

vpline 

const 
const 
const 
const 
const 



GDIDBGN = 1 



GDIDEND 
FWRDBGN 

FWRDEND 
MAILBGN 
MAI LEND 
PAGEBGN 
PAGEEND 



4 ; 

5 ; 

8 ; 

9 ; 
10 
11 
12 



const LOGOFF = 0 
voslog off 

const LOGON = 1 

voslog on 



# number of subscribers 

# maximum inbound public 

# maximum active barger 

# maximum forwarding 

# maximum voice mail 

# number of conferences 

# beginning PEB2 netline 

# ending PEB2 netline 

# ending PEB2 netline 

# beginning PEB4 

# ending PEB4 alternate 

# beginning GETDID 

# ending GETDID vpline 

# beginning FORWARD 

# ending FORWARD vpline 

# beginning VMAIL vpline 

# ending VMAIL vpline 

# beginning PAGE vpline 

# ending PAGE vpline 

# conference subroutines 
# conference subroutines 
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# Semaphore reference numbers 

const SEM_FWRD = 48 ; # use when 

FWRDnACT (one per subscriber) 

const SEM_MAIL = SEM_FWRD+SUBSMAX ; # 
accessing MAILnACT (one per subscriber) 

const SEM_next = SEM_MAIL+SUBSMAX ; # 
for SEM_MAIL+subs accesses 

# maximum semaphore 

# Global memory reference numbers 

const MAINPID = 0 ; # main task pid 

const MAINFLG = MAINPID+l ; # main task go-ahead 

flag 

const STRATUSJPRE = MAINFLG+1 ; # Stratus dialing 
preamble 

const STRATUS_PST = STRATUS_PRE+1 ; # Stratus 
dialing postamble 

const next = STRATUS_PST+1 ; # room for more 
globals (up to 1*SUBSMAX) 



const 


PSTN_PRE = 


1*SUBSMAX 


/ 


# 


public network 


dialing preamble 










const 


PSTN_PST = 


2*SUBSMAX 


t 


# 


public network 


dialing postamble 










const 


FORWARD = 


3*SUBSMAX 


r 


# 


forwarding phone 


number #1 












const 


PAGER = 


4*SUBSMAX 


r 


# 


pager phone 


number 












const 


VOICEMAIL = 


5*SUBSMAX 


J 


# 


voice mail phone 


number 












const 


CALLER_NUMB = 


6*SUBSMAX 


t 


# 


caller phone 


number 












const 


CALLER_DID = 


7*SUBSMAX 


t 


# 


caller DID 


const 


BARGE_DID = 


8*SUBSMAX 


t 


# 


barger DID 


const 


PRGRM_PIN = 


9*SUBSMAX 


i 


# 


programing PIN 


const 


BARGE_PIN = 


10*SUBSMAX 


r 


# 


barge in PIN 


const 


CALLWAIT = 


11*SUBSMAX 


t 


# 


call waiting flag 


const 


CALL1ACT = 


12*SUBSMAX 


/ 


# 


caller #1 active 


(vpline) 










caller #2 active 


const 


CALL2ACT = 


13*SUBSMAX 


/ 


# 


(vpline) 










caller #3 active 


const 


CALL3ACT = 


14*SUBSMAX 


i 


# 


(vpline) 










caller #4 active 


const 


CALL4ACT = 


15*SUBSMAX 


i 


# 


(vpline) 










caller #1 


const 


CALL 1 CNF = 


16*SUBSMAX 




# 


conference 










const 


CALL2CNF = 


17*SUBSMAX 




# 


caller #2 



accessing 
use when 
leave room 
is 63 
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18*SUBSMAX ; 

19*SUBSMAX ; 

20*SUBSMAX ; 

21*SUBSMAX ; 

22*SDBSMAX ; 

23*SUBSMAX ; 

24*SUBSMAX ; 

25*SUBSMAX ; 

26*SUBSMAX ; 

27*SUBSMAX ; 

28*SUBSMAX ; 



conference 

const CALL 3 CNF = 
conference 

const CALL 4 CNF = 
conference 

const CALL1ANS = 
supervision (vpline) 
const CALL2ANS = 
supervision (vpline) 
const CALL3ANS = 
supervision (vpline) 

const CALL4ANS = 
supervision (vpline) 
const CALL1NET = 
const CALL2NET = 
const CALL3NET = 
const CALL4NET = 
const BARG1SUB = 
subscriber active (net line) 

const BARG2SUB = 29*SUBSMAX 
subscriber active (netline) 

const BARG1ANS = 30*SUBSMAX 
answered (vpline) 

const BARG2ANS = 31*SUBSMAX 
answered (vpline) 

const FWRD1ACT = 32*SUBSMAX 
forwarding active (vpline) 

const FWRD2ACT = 33*SUBSMAX 
forwarding active (vpline) 

const FWRD1SUB = 34*SUBSMAX 
forwarding subscriber active (netl 
const FWRD2SUB = 35*SUBSMAX 
forwarding subscriber active (netl 
const FWRD1ANS = 36*SUBSMAX 
forwarding answered (vpline) 

const FWRD2ANS = 37*SUBSMAX 
forwarding answered (vpline) 

const FWRD1NET = 38*SUBSMAX 
forwarding netline 

const FWRD2NET = 39*SUBSMAX 
forwarding netline 

const FWRD1CPA = 40*SUBSMAX 
forwarding call progress active 

const FWRD2CPA = 41*SUBSMAX 
forwarding call progress active 

const MAIL1ACT = 42*SUBSMAX 
mail active (vpline) 
const MAIL2ACT = 
mail active (vpline) 
const MAI L3 ACT = 
mail active (vpline) 



# 

# 

# 

# 

# 

# 

# 
# 
# 
# 
# 

# 

# 

# 

# 

# 

# 

ine) 
# 

ine) 
# 

# 



43*SUBSMAX 
44*SUBSMAX 



caller #3 

caller #4 

caller #1 answer 

caller #2 answer 

caller #3 answer 

caller #4 answer 

caller #1 netline 
caller #2 netline 
caller #3 netline 
caller #4 netline 
call #1 barger 

call #2 barger 

call #1 barger 

call #2 barger 

call #1 

call #2 

call #1 

call #2 

call #1 

call #2 

# call #1 

# call #2 

# call #1 

# call #2 

# call #1 voice 

# call #2 voice 

# call #3 voice 
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const MAIL4ACT = 
mail active (vpline) 

const MAIL1NET = 
mail netline 

const MAIL2NET = 
mail netline 

const MAIL3NET = 
mail netline 

const MAIL4NET = 
mail netline 

const GLOBAL S = 
global 



ZOO 

45*SUBSMAX 
46*SUBSMAX 
47*SUBSMAX 
48*SUBSMAX 
49*SUBSMAX 
50*SUBSMAX 



# call #4 voice 

# call #1 voice 

# call #2 voice 

# call #3 voice 

# call #4 voice 

# end of active 



# Values for termination types (last_term) and event 
type 



const 


T_N0TERM 


= 


0 ; 


# 


No termination 


received 












const 


T_MAXDT 




1 ; 


# 


Maximum DTMF digits 


received 










const 


T_TERMDT 




2 ; 


# 


Terminating DTMF digit 


received 










const 


T_STOP 


s 


3 ; 


# 


User stop 


const 


T_D0SERR 




4 ; 


# 


Dos error 


const 


TJMAXBYT 


= 


5 ; 


# 


Max bytes reached on 


play or rec 










const 


T_HFAIL 




6 ; 


# 


Hardware failure 


const 


T_TIME 




7 ; 


# 


Multi-tasking function 


timed out 










const 


T_OFFH 




8 ; 


# 


Offhook complete 


const 


T_DIAL 




9 ; 


# 


Dialing complete 


const 


T_SIL 




10 ; 




# Maximum silence 


received 












const 


TJEOF 




11 ; 




# Eof reached on 


playback 












const 


T_LCTERM 




12 ; 




# Terminate by drop 


in loop signal 








const 


T_DFULL 




13 ; 




# Disk full 


const 


T_ONH 




14 ; 




# Onhook complete 


const 


T_MDTERM 




17 ; 




# AMX80 disconnect 


termination 












const 


T_CATERM 




18 ; 




# Call analysis 


termination 










const 


T_LCREV 




19 ; 




# Loop signal 


battery reversal 








const 


T_LC 




20 ; 




# Loop signal drop 


event 












const 


T_RING 




21 ; 




# Rings received 


const 


T_SIL0FF 




22 ; 




# Silence off 


const 


T_SIL0N 




23 ; 




# Silence on 


const 


T_AMXC0N 




24 ; 




# AMX8x channel 
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connect 



const 


T_AMXDIS 




25 ; 


# 


AMX8x channel 


disconnect 












const 


T_LC0N 


= 


26 ; 


# 


Loop signal on 


event 












const 


T_MAXRNG 


= 


27 ; 


# 


Max rings reached 


on AMX81 conn 










const 


T_MCTERM 


= 


28 ; 


# 


Rings termiated by 


AMX8 connect 










const 


T_MDTMF 




29 ; 


# 


Terminated by 


masked DTMF 


digit 










const 


T_IDTIME 


= 


30 ; 


# 


Inter digit delay 


exceeded 












const 


T_NSIL 




31 ; 


# 


Terminated by a 


max non-silence 










const 


T BUFFUL 


= 


32 ; 


# 


Termination from 


EMS buffer 


full 










const 


T_BUFEMP 


= 


33 ; 


# 


Terminated from 


EMS buffer 


empty 










const 


T_EMSERR 




34 ; 


# 


Terminated by EMS 


error 












const 


T_EMSL0W 




35 ; 


# 


EMS buffer low 


const 


T_EMSHI 




36 ; 


# 


EMS buffer high 


const 


T_STPARM 




37 ; 


# 


Parameter updated 


const 


T_WINK 




38 ; 


# 


Wink protocol 


complete 










Wink received 


const 


T.WKRECV 




39 ; 


# 


const 


T_JDTMF 




40 ; 


# 


DTMF digit 


received 












const 


T_T0NE0N 




41 ; 


# 


Tone on detect 


const 


TJTONEOFF 




42 ; 


# 


Tone off detect 


const 


T_BADTERM 




43 ; 


# 


Invalid 


termination 


condition 










const 


T_MT0NEON 




44 ; 


# 


Terminated by Tone 


On 












const 


T_MTONEOFF= 


45 ; 


# 


Terminated by Tone 


Off 












const 


T_CAERROR 




46 ; 


# 


Call progress 


error 










Tone generation 


const 


T_TGERR 




47 ; 


# 


template error 








Tone generation 


const 


TJTGCMPLT 




48 ; 


# 


complete 












const 


T_ADSIERR 




49 ; 


# 


ADSI protocol 


failure 












const 


MAXTERM 




49 ; 


# 


Max (last) 



termination type 



# Call Analysis termination data types/call status 
values 
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const 


CA_BUSY 




7 ; 


# 


Called line 


is busy 


const 


CA_N0AN 




8 ; 


# 


Called line 


did not 


answer 














const 


CA_N0RNG 




9 ; 


# 


Called line 


did not 


ring 














const 


CA_C0NN 




10 ; 




# Called 


line 


connected 














const 


CA_0PINT 




11 ; 




# Called 


line recvd 



oper intercept 

const CA_N0DIALT0NE = 17 ; # Called line recvd 



no dial tone 

const CA_FAXTONE = 18 ; # Called line recvd fax 

tone 
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APPENDIX VIII 



SUBROUTINE LISTING DEFINING CONSTANTS 
USED BY THE DIANATEL HARDWARE SWITCH 



# 

# datmod . inc - include file for DiAnaTel Runtime Link 
Library constants 



# Bit masks 



const BLKREQ = 1024; 
cause functions 

# to block 



# add to line number to 



SmartSwitch96 



# Signal assertion modes 

const SSAS_NONE = 0; 
looped back to transmit 

const SSAS_ONHOOK = 1; 
const SSAS_OFFHOOK = 2; 

line 

const SSAS_JPASS = 3; 
through on connected line 

# Signal alert modes 

const SSAL_N0 = 0; 
events on line 

const SSAL_YES = 1; 
events on line 



# receive signal bit 

# send onhook on line 

# send offhook on 

# pass signal bit 

# disable signal change 

# enable signal change 



# Event types 

const SSEVT_SIGNAL =01; # 

const SSEVT_SBOVERFL0W = 02; 
ovrf low 

const SSEVT_FLIPDONE = 03; # flip command is 
complete 

const SSEVT_RECVWINK = 04; # 

const SSEVT_RECVFLASH = 05; 
detected 

const SSEVT_TIMEOUT =06; # 



signal bit changed 
# conference bridge 



inbound wink detected 
# inbound flash 

line's timer expired 



» * 
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const MINUDE =60; # minimum number for 

User Defined Event 

# maximum is 99 

# Configuration Parameters: Used by SgetmodeO and 
Ssetmode ( ) 

const MILLISEC = 0; 

const CLOCK = 1; 

const BOARD_NUMBER = 2; 

const FREQ = 3; 

const FLASHMIN = 4; 

const FLASHMAX = 5; 

const WINKMIN = 6; 

const WINKMAX = 7; 

const CONFERENCES = 8; 

# SmartBridge96 



# The following were NOT here in DATMOD . INC , as the VOS 
SS96 documentation 

# indicates. But these are the values Parity Software 
suggested using: 

const SBAT_N0NE = 0 ; 
const SBAT_3DB = 1 ? 
const SBAT_6DB = 2 ; 

const SBSU_N0NE = 0 ; 
const SBSU_SLIGHT = 1 ; 
const SBSU_MODERATE = 2 ; 
const SBSU_HEAVY = 3 ; 

# EasyAccess24 



# EinPEBO , EoutPEBO 



const EAPEB„PASSTHRU = 0; # passthrough Tl <-> PEB 
const EAPEB_0NH00K =1; # assert PEB on hook 

const EAPEB_0FFH00K =2; # assert PEB off hook 



# Event numbers returned by Egetevt{) 



const EAEVT_TNOTERM = 0; 
const EAEVT_TMAXDT = 1; 
const EAEVT_TTERMDT = 2; 
const EAEVTJTSTOP = 3; 
const EAEVT_TTIME = 7; 
const EAEVT_OFFHOOK = 8; 



# no term specified 

# maximum DTMF digit 

# terminating DTMF digit 

# line now stopped 

# get tones time out 

# off hook complete 
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const 
const 
const 
const 
const 
seized 

const 

wink 

const 
const 
const 
const 
const 
const 

(isdn) 

const 

(isdn) 

const 

changed 



EAEVT_DIALDONE = 9; # 

EAEVT_ONHOOK =14; # 

EAEVT_LC =20; # 

EAEVT_RING = 21; # 

EAEVT_LCON = 26; # 



dial complete 
on hook complete 
caller hung up 
inbound ringing 
inbound network now 



EAEVT_FL I PDONE = 38; # flip done: usually a 



EAEVT_RECVWINK = 39; # 
EAEVT_RECVFLASH = 70; 
EAEVT_T IMEOUT = 71; # 
EAEVT_T1 ALARM =72; # 
EAEVTJT 1NO ALARM = 73; 
EAEVT_DCHANNELUP = 74; 

EAEVT_DCHANNELDN = 75; 

EAEVT_SIGCHANGE = 76; 



received a wink 

# received a flash 
timer expired 

tl now in alarm 

# tl out of alarm 

# d channl now up 

# d channl now down 

# robbed bits 



# EgetlSDNO, EsetlSDN ( ) - service types and allowable 
values 



const NSF_SERVICETYPE = 1; # types of service 
options 

const NSF_SDN_SERVICE = 225 
const NSF_ 
const NSF_ _ 

const NSF_ACCUNET_SERVICE = 230 ;# AT&T service 
const NSF_LD_SERVICE = 231; 
const NSF_INTL800_SERVICE = 232 ;# AT&T service 
const NSF_MULTIQUEST_SERVICE = 240; # AT&T service 



# 

_MEGA800_SERVICE = 226 ;# AT&T service 
lMEGACOM_SERVICE = 227 ;# AT&T service 

;# AT&T service 
# AT&T service 



# get/set type of 

# this is most 



const NSF_GETCALLERDATA = 2; 

ANI on demand 

const NSF_CPN_PREFERRED = 129; 

commonly requested 

const N S F_BN_PREF ERRED = 130; # special uses 
const NSF_CPN_ONLY = 131; # special uses 
const NSF_BN_ONLY =132; # special uses 
const NSF_CATSC = 137; # special uses 



const NSF_ VARIABILLTYPE = 3; 
Variabill service 

const NS F_VB_NE WRAT E = 16; # 
const NSF^VB.FLATRATE = 17 
const NSF_VB_PCHARGE = 18; 

to call 

const NSF_VB_PCREDIT = 19; 
charge from call 



# get/set type of 

# set new minute rate 

# set a flat rate 

# add a premium charge 

# deduct a premium 
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const NSF_VB_FREECALL = 24 
caller 

const NS F__WRONG STATE = 127 
variabill 

const NSF_VB_ACCEPT = 162 
was accepted 



# do not charge 

# no call active for 

# variabill charge 



const ISDN_SERV_STAT =4; # get/put lines in/out 
of service 

const ISDN_INSERVICE 
const ISDN_OUTSERVICE 



192; # in service 
= 202; # remove service 
const ISDN_NETMAINTENANCE = 193 ;# network placed in 
maintenance 

const ISDNJWETOUTSERVICE = 194; # network has 
removed service 

const ISDN_GETSTATUS =5; # get status of isdn 
link: up /down 



TGD24 



# TgetparmO, TsetparmO - parameters and allowable 
values 



const TG_TONESTYLE = 4 
const TG_MFDTMFSTYLE = 
const TGJDTMFSTYLE = 2 

call progress 

const TG_USERSTYLE = 3 

defined tones 



1; # style 1 - MF and DTMF 

# style 2 - DTMF and 

# style 3 - user 
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APPENDIX IX 

SUBROUTINE LISTING USED FOR CONFERENCING BY 
ALL TASKS OTHER THAN THE MAIN PROGRAM 



# add listener line to conference subroutine 
func add_list (scall , aline, logit) 

# check for active call 
if (scall strneq " " ) 

# defer hang up jump to onsignal 
sc_sigctl( M (") ; 

# get specified call's conference number 
conf = glb_get (CALLlCNF+SUBSMAX*scall+subs) ; 

# check for using active specified conference 
if ((conf <= 0) or (conf > CONFMAX) ) 

voslog( "TEST: addlis error - call: 
"Scscallfc" conf: "&conf&" line: "fcaline) ; 
else 

# save beginning net line status 
stats = Sstatus (aline) ; 

# check for inbound netline 

if ( (aline >= NETBGN) and (aline <= 

NETEND) ) 

# add line to specified conference / 

leave alerting on 

code = Saddlis (conf , aline, 
SSAS_OFFHOOK, SSAL_YES) ; 

else 

# add line to specified conference / 

leave alerting off 

code = Saddlis (conf , aline, 
SSAS_OFFHOOK, SSAL_N0) ; 

endif 

# check for error return 
if (code <> 0) 

voslog{ "Saddlis ( "fcconf Sc" , "fcalinefc" ) 
code "&code&" error") ; 

else 

if (logit <> 0) 

voslog( "Saddlis ("&conf&" , 
"&aline&"): "&stats& n "fcSstatus (aline) ) ; 

endif 
endif 
endif 
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# allow deferred hang ups 
sc_sigctl(") "} ; 

end if 
endfunc 

# add talker line to conference subroutine 
func add_conf (scall, aline, logit) 

# check for active call 
if (scall strneq nn ) 

# defer hang up jump to onsignal 
sc_sigctl { " ( " ) ; 

# get specified call's conference number 
conf = glb_get(CALLlCNF+SUBSMAX*scall+subs) ; 

# check for using active specified conference 
if ((conf <= 0) or (conf > CONFMAX) ) 

voslog ("TEST: addtalk error - call: 
"&scall&" conf: n &conft" line: "fcaline) ; 
else 

# save beginning net line status 
stats = Sstatus (aline) ; 

# check for inbound netline 

if ((aline >= NETBGN) and (aline <= 

NETEND) ) 

# add line to specified conference / 

leave alerting on 

code = Saddtalk(conf , aline, 
SSAS_OFFHOOK, SSAL_YES) ; 

else 

# add line to specified conference / 

leave alerting off 

code = Saddtalk(conf , aline, 
SSAS_OFFHOOK, SSAL_N0) ; 

endif 

# check for error return 
if (code <> 0) 

voslog ( "Saddtalk( "fcconf &" , "&aline& n ) 
code "&code$c" error") ; 

else 

if (logit <> 0) 

voslog ( " Saddtalk ( " &conf & M , 
"&aline&") : "^statsSc" "&Sstatus (aline) ) ; 

endif 
endif 
endif 
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# allow deferred hang ups 
sc_sigctl( M ) "> ; 

endif 
endfunc 

# delete listener line from conference subroutine 
func del_list (scall, dline, cline, logit) 

# check for active call 
if (scall stmeq " " ) 

# defer hang up jump to onsignal 
sc_sigctl( B (") ; 

# get specified call's conference number 
conf = glb_get (CALLlCNF+SUBSMAX*scall+subs) ; 

# check for using active specified conference 
if ((conf <= 0) or (conf > CONFMAX) ) 

voslog( "TEST: dellis error - call: 
"kscallSc" conf: "&conf&" line: "fcdline) ; 
else 

# save beginning netline status 
stats = Sstatus (dline) ; 

# check for inbound netline 

if ( (dline >= NETBGN) and (dline <= 

NETEND) ) * . * . A 

# remove delete line from specified 

conference / leave alerting on 

code = Sdellis(conf , dime, 

SSAS_OFFHOOK, SSAL_YES) ; 

els€ * 

# remove delete line from specified 

conference / leave alerting off 

code = Sdellis (conf , dline, 
SSAS__OFFHOOK , SSAL_N0 ) ; 

endif 

# check for error return 

if ({code <> 0) and (code <> -24)) 

voslog( "Sdellis ( "fcconf &" , "Scdlinefic" ) 
code ,, ScCode& n error") ; 

else 

if (logit <> 0) 

voslog( "Sdellis ( "fcconffc" , 
M &dline&"): H &stats& w "Mstats = Sstatus (dline) ) ) ; 

else 

stats = Sstatus (dline) ; 
endif 

if ((code = substr (stats, 4, 2)) eq 

conf) 
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voslog{ "TEST: dellis error - 
channel "&dline&" "&stats) ; 

endif 
endif 
endif 

# check for valid connect line 
if (cline <> 0} 

# check for inbound netline 

if ({dline >= NETBGN) and (dline <= 

NETEND) ) 

# drive delete line receive from 
connect line transmit / leave alerting on 

code = Scon (dline, cline, SSAS PASS, 
SSAL_YES) ; ~ 
else 

# drive delete line receive from 
connect line transmit / leave alerting off 

code = Scon (dline, cline, SSAS PASS , 

SSAL_N0) ; 

endif 

# check for error return 
if (code <> 0) 

voslog( w Scon( M &dline& H , "fcclinefc" ) code 

"&code&" error") ; 

else 

if (logit <> 0) 

voslog( "Scon( H &dline& M , "&cli 
ne&" ) : "&Sstatus(dline) ) ; 

endif 
endif 
endif 

# allow deferred hang ups 
sc_sigctl(" ) " ) ; 

endif 
endfunc 

# delete talker line from conference subroutine 
func del_conf (scall, dline, cline, logit) 

# check for active call 
if (scall strneq "") 

# defer hang up jump to onsignal 
sc_sigctl(" (") ; 

# get specified call's conference number 
conf = glb_get(CALLlCNF+SUBSMAX*scall+subs) ; 



# check for using active specified conference 
if ((conf <= 0) or (conf > CONFMAX) ) 
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Sill 

voslog{ "TEST: deltalk error - call: 
"&scall& n conf: "&conf&" line: "fcdline) ; 
else 

# save beginning netline status 
stats = Sstatus (dline) ; 

# check for inbound netline 

if ( (dline >= NETBGN) and (dline <= 

NETEND) ) 

# remove delete line from specified 
conference / leave alerting on 

code = Sdeltalk (conf , dline, 
SSAS_OFFHOOK , SSAL_YES ) ; 

else 

# remove delete line from specified 
conference / leave alerting off 

code = Sdeltalk (conf , dline, 
SSAS_OFFHOOK, SSAL_N0) ; 

endif 

# check for error return 

if ((code <> 0) and (code <> -24)) 

voslog ( "Sdeltalk( H &conf&" , "&dline&" ) 
code "tcodeSc" error") ; 

else 

if (logit <> 0) 

voslog (■ Sdeltalk ( "fcconffc" , 
"&dline&"): n &stats&" "Mstats = Sstatus (dline) ) ) ; 

else 

stats = Sstatus (dline) ; 
endif 

if ((code = substr (stats, 4, 2)) eq 

conf) 

voslog ( "TEST: deltalk error - 
channel "&dline&" "fcstats) ; 

endif 
endif 
endif 

# check for valid connect line 
if (cline <> 0) 

# check for inbound netline 

if ( (dline >= NETBGN) and (dline <= 

NETEND) ) 

# drive delete line receive from 
connect line transmit / leave alerting on 

code = Scon (dline, cline, SSAS_PASS, 

SSAL_YES) ; 

else 

# drive delete line receive from 
connect line transmit / leave alerting off 

code = Scon (dline, cline, SSAS_PASS, 

SSAL_NO) ; 
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endif 

# check for error return 
if (code <> 0) 

voslog{ "Scon( H £cdline&" , "Sccline*" ) code 

" &code& " error " ) ; 

else 

if (logit <> 0) 

voslog( "Scon { "ficdlinefc" , "&cli 
ne&") : "fcSstatus (dline) ) ; 

endif 
endif 
endif 

# allow deferred hang ups 
sc_sigctl( tt ) ") ; 

endif 
endfunc 

# release unused conference subroutine 
func rel_conf (scall) 

# check for active call 
if (scall strneq " " ) 

# defer hang up jump to onsignal 
sc_sigctl { n ( H ) ; 

# get specified call ' s conference number 
conf = glb_get (CALLlCNF+SUBSMAX*scall+subs) ; 

# check for using active specified conference 
if ((conf > 0) and (conf <= CONFMAX) ) 

# check if conference still in use 
if (((scall > = CALLMAX) or 

(glb_get (CALLlACT+SUBSMAX*scall+subs) eq 0)) 

and ((scall >= BARGMAX) or 
(glb_get (BARG1SUB+SUBSMAX* seal 1+ subs) eq 0)) 

and ((scall >= FWRDMAX) or 
(glb.get (FWRDlSUB+SUBSMAX*scall+subs) eq 0)) 

and ({scall >= FWRDMAX) or 
(glb_get (FWRDlACT+SUBSMAX*scall+subs) eq 0)) 

and ((scall >= MAILMAX) or 
(glb_get (MAILlACT+SUBSMAX*scall+subs) eq 0)) 

and (((scall BARGMAX) or 
(glb„get (CALLlCNF+SUBSMAX*modulo2 ( scall ) + subs ) <> conf ) ) 

or (((scall >= CALLMAX) or 
(glb_get (CALLlACT+SUBSMAX*modulo2 (scall) +subs) eq 0) ) 

and ((scall >= BARGMAX) or 
(glb_get (BARGlSUB+SUBSMAX*modulo2 (scall) +subs) eq 0) ) 

and ((scall >= FWRDMAX) or 
(glb_get (FWRDlSUB+SUBSMAX*modulo2 (scall) +subs) eq 0) ) 



WO 96/09731 PCIYUS95/12318 

7J3> 

and ((scall >= FWRDMAX) or 
(glb_get(FWRDlACT+SUBSMAX*modulo2(scall)+subs) eq 0) ) 

and ((scall >= MAILMAX) or 
(glb_get (MAILlACT+SUBSMAX*modulo2 ( scall) +subs ) eq 0) ) ) ) ) 

# check to see that conference is 

really not in use 

for (code = NETBGN; code <= NET END ; 

code++) 

if (substr ( (stats = 
Sstatus (code) ) , 4, 2) eq conf) 

voslog( "TEST : software 
mistaken about conf being inactive - channel : "&code& 11 
"fcstats) ; 

goto log_active ; 
endif 
endf or 

for (code = ALTBGN ; code <= ALTEND; 

code++) 

if (substr ( (stats = 
Sstatus (code) ) , 4, 2) eq conf) 

voslog ( " TEST : software 
mistaken about conf being inactive - channel : "fccodefc" 
"fcstats) ; 

goto log_active ; 
endif 
endf or 

for (code = GDIDBGN; code <= PAGEEND; 

code++ ) 

if (substr ( (stats = 
Sstatus (code) ) , 4, 2) eq conf) 

voslog ( "TEST: software 
mistaken about conf being inactive - channel : "&code&" 
n &stats) ; 

goto log_active ; 
endif 
endf or 

# request conference deallocation 
goto dealloc ; 

else 

# check to see that conference is 



really in use 



code++) 



for (code = NETBGN; code <= NETEND; 



if (substr ( (stats = 
Sstatus (code) ) , 4, 2) eq conf) 

goto rel_exit ; 
endif 
endf or 

for (code = ALTBGN; code <= ALTEND; 
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code++) 

if (substr( (stats = 
Sstatus (code) ) , 4, 2) eq conf) 

goto re l_ex i t ; 
endif 
endf or 

for (code = GDIDBGN; code <= PAGEEND; 

code++) 

if (substr ( (stats = 
Sstatus (code) ) , 4, 2) eq conf) 

goto rel_exit ; 
endif 
endf or 

voslog ( "TEST : software mistaken about 
conf being active - conf ; "fcconf & w call : "fcscall) ; 
dealloc : 

# request conference deallocation 
msg_put (mainpid, n E M &conf) ; 

if ((code - msg_get (10) ) strneq "E- 

OK") 

voslog ( "ERROR: code M &code&" when 
deallocating conference "fcconf) ; 

else 

voslog ( "Deallocating conference 

"fcconf) ; 

# set specified call's conference 

inactive 

glb_set (CALLlCNF+SUBSMAX*sca 

11+subs, " " ) ; 

endif 
log_active: 

# log other conferences still active 
for (code = NETBGN ; code <= NETEND; 

code++) 

if (substr ( (stats = 
Sstatus (code) ) , 4, 2) <> 0) 

voslog ("CONF - net line: 
"fccodeSc" Sstatus: "fcstats) ; 

endif 
endf or 

for (code = ALTBGN; code <= ALTEND; 

code++) 

if (substr( (stats = 
Sstatus (code) ) , 4, 2) <> 0) 

voslog ("CONF - altline: 
M &code&" Sstatus: "fcstats) ; 

endif 
endf or 

for (code = GDIDBGN; code <= PAGEEND; 

code++) 
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if (substr( (stats = 
Sstatus(code) ) , 4, 2) <> 0) 

voslog( "CONF - vpline: 
"&code& n Sstatus: "fcstats) ; 

endif 
endf or 
endif 
endif 

rel_exit : 

# allow deferred hang ups 
sc_sigctl(") M ) ; 
endif 
endfunc 



« I 
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APPENDIX X 



LISTING OF ASCI TEXT FILES WHICH DEFINE 
VARIOUS VOS USER SETUP PARAMETERS 



# CPB.DEF 



# This file defines the Channel Parameter Block 

# It is used by the MKCPB program to create the 
DCB.PAR file. 



# These parameters are set for each telephone line 
channel 

# when VOS is started. The parameters can be changed 
when 

# the system is running using the sc_setCPB_word and 

# sc_setCPB_byte functions. 

# This file gives default values to all parameters. 

# See Dialogic documentation for more details 

# on the effect of the parameters . 



dtpl_dly 


= 5 


# 


dt_edge 


= 2 


# 


dtrc_dly 


= 0 


# 


sb_size 


= 200 # 


nbrdna = 


2 


# 


stdely = 


25 


# 


(xlOms) 






cnosig = 


4000 


# 


lcdly = 


10 


# 


(xlOms) 






lcdlyl = 


10 


# 


(xlOms ) 






hedge = 


1 


# 


2=trail 






cnosil = 


650 


» 


(xlOms) 






loltola 


= 13 


# 


loltolb 


= 13 


# 


lo2tola 


= 13 


# 


lo2tolb 


= 13 


# 


hiltola 


= 13 


# 


hiltolb 


= 13 


# 


lolbmax 


= 90 


# 


lo2bmax 


= 90 


# 



Playback DTMF filter time (xlOms) 

DTMF message edge select l=lead 2=trail 

Record DTMF delay (xlOms) 

Silence buffer size (bytes) 

Rings before 'no answer' signalled 

Delay after dialling before analysis 

No signal timeout delay (xlOms) 
Delay before loop drop = 'connect 1 

Delay loop drop to 'connect' signal 

Hello edge to signal connect l=lead 

No silence continuous signal timeout 

Accept % below 1st low interval 
Accept % below 2nd low interval 
Accept % above 1st low interval 
Accept % above 1st low interval 
Accept % above high interval 
Accept % below high interval 
Max time 1st low for busy (xlOms) 
Max time 2nd low for busy (xlOms) 
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hilbmax =90 # 
nsbusy =0 # 
logltch = 15 # 
higltch = 19 # 
lolrmax = 90 # 
lo2rmin = 255 # 
intflg =5 # 
intfltr = 10 # 
spdeb =10 # 
hisiz =90 # 
alowmax = 700 # 
blowmax = 530 # 
nbrbeg =1 # 
hilceil = 78 # 
lolceil = 58 # 
lowerfrq = 900 
upper frq = 1000 
timefrq = 5 - # 
rejectfrq = 20 
maxansr = 1000 
ansrdgl = 65535 
pvdmxper = 0 
pvdszwnd = 0 
pvddly = 0 
mxtimefrq = 0 
lower 2 frq = 0 
upper 2 frq = 0 
time2frq = 0 
mxtime2frq = 0 
lower3frq = 0 
upper3frq = 0 
time3frq = 0 
mxtime3f rq = 0 



Max time high for busy (xlOms) 
Nr additional states for busy 
Silence deglitch duration (xlOms) 
Noise deglitch duration (xlOms) 
Max short low double- ring (xlOms) 
Min long low double-ring (xlOms) 
SIT, PVD options 

Min Intercept tone duration (xlOms) 
Trailing edge silence debounce (xlOms) 
Compare value for prev high (xlOms) 
If prev hi > hisiz use this (xlOms) 
If prev hi < hisiz use this (xlOms) 
Nr rings before analysis start 
Max 2nd high for retrain (xlOms) 
Max 1st low for retrain (xlOms) 

# Lower accepted freq (Hz) 

# Upper accepted freq (Hz) 
Min Op Intercept signal (xlOms) 

# Allowed % bad Op Int signal 

# Max duration of hello (xlOms) 

# Silence deglitch for answer 

# (Obsolete) 

# (Obsolete) 

# (Obsolete) 

# Max time for 1st SIT tone (xlOms) 

# Lower bound freq. 2nd SIT tone (Hz) 

# Upper bound freq. 2nd SIT tone (Hz) 

# Min time 2nd SIT tone (xlOms) 

# Max time 2nd SIT tone 

# Lower bound freq 

# Upper bound freq 

# Min time 3rd SIT tone (xlOms) 

# Max time 3rd SIT tone (xlOms) 



(xlOms) 
3rd SIT tone 
3rd SIT tone 



(Hz) 
(Hz) 



SS Start 

Int = 49 

install as 

Address = DC 00 

Millisec = 14 
duration (140 msec) 

Wink detect 

Flash detect 

Clock = 2 

clock 

EVENTMODE = Global 
single queue 

CONFERENCES = 6,6,6,6 
; Sixteen 6-way conferences 



; Indicates board type 
/Interrupt number to 

; Location of board 
; Minimum signaling 

; allow wink detection 
; allow flash detection 
;Use PEB 2 (P2) as master 

;all events through 

6,6,6,6,6,6,6,6,6,6,6,6 
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SS End ; End of SmartSwitch 

config data 



# DCB.DEF 

# This file defines the Dialogic Control Block. 

# It is used by the MKDCB program to create the 
DCB.PAR file. 

# These parameters are set once and for all cannot 

# be changed once the system is started. 

# This file gives default values to all 
parameters . 

# See Dialogic documentation for more details 

# on the effect of the parameters. 



f lashchr = & 


# 


hook 




flashtm = 50 


# 


pausetm = 200 


# 


(xlOms) 




digrate = 6053 


# 


sch tm = 20 


# 


p_bk = 6 


# 


p_mk = 4 


# 


p_idd = 100 


# 


(xlOms) 




t_idd = 5 


# 


(xlOms) 




oh_dly = 1 


# 


r_on = 3 


# 


r_of f = 5 


# 


r_ird = 80 


# 


(xlOOms) 




s_bnc = 4 


# 


(xlOms) 




ttdata = 10 


# 


minpdon = 2 


# 


(xlOms) 




minpdoff = 2 


# 


(xlOms) 




minipd = 25 


# 


(xlOms) 




minlcoff = 65535 


# 




# 



means "disabled" ) 



Char in dial string to flash- 

Flash-hook duration (xlOms) 
Dialling pause duration 

Digitization rate (Hz) 
Max D40DRV time slice (x50ms) 
Pulse break interval (xlOms) 
Pulse make interval (xlOms) 
Pulse dial inter-digit delay 

Tone dial inter-digit delay 

Off -hook delay (xlOms) 
Min ring on interval (xlOms) 
Min ring off interval (xlOms) 
Ring count reset delay 

Silence debounce interval 

DTMF tone duration (xlOms) 
Min on interval for pulse 

Min off interval for pulse 

Min interdigit time for pulse 

Min loop off duration (xlOms) 
(Default is 65535=-! , which 



WO 96/09731 PCT/US95/12318 

redge = 1 # (dcbrfu3) Set to 1 for PEB 
environment 

maxpdoff = 50 # Max pulse make duration 
(xlOms) 



db_bases = 
db_recs = 
records 
db_reclen 
db_£ields 
db_bdes = 
db rdes = 



= 0 
= 0 
0 
0 

32 
64 

16 
350 
8 

20 
0 
0 

= 0 



msg_size = 
msg_num = 
glb_size = 
glb_num = 
buf_num = 
f il_num = 
db_ixnum = 
db_ixkey = 
db_ixcache 
index file 
db_btrieve = 0 
ser_buff = 0 
ser_ports = 0 
• - 4) 

fil_buf = 0 
9999=EMS) 
sc_words = 0 
sc_playphm phrase 
sc_nshgup = 0 
l=Yes 0=No 
arg_size = 3 
fil_locks = 0 
log_size = 150000 



# Max number of active databases 

# Max number of active database 

# Max database record length 

# Max fields in one database 

# Max active database descriptors 

# Max active record descriptors 

# Max length of message string 

# Max number of pending messages 

# Max length of global variable 

# Number of global variables 

# Number of lk buffers 

# Max open DOS files 

# Max number of active index files 

# Max length of index key 

# Number of lk cache buffers per 

# Btrieve support? 1=YES 0=NO 

# COM port buffer size (bytes) 

# Number of COM ports to support (0 

# fil_copy() buffer size (Kb, or 

# Max words in sc_playph or 

# Continuous tone treated as hang-up 

# Max chars in spawna/ chain argument 

# Max active calls to fil_lock 
Max size of V0S?.L0G 



1 N MAIN 

5 N GETDID+CALLIN+CALLOUT+BARGER 
4 N FORWARD 

2 N VMAIL 
2 N PAGE 
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What is claimed is: 

1. A communications system comprising: 

(a) a central processing unit; 

(b) a communications interface for connection to a 
telephone system and to a signaling system, the 
signaling system communicating with a plurality of 
subscribers ; 

(c) a communications switch connected with said 
communications interface and with said central 
processing unit, said central processing unit operating 
under program control to detect a call from a caller 
directed to one of said subscribers via said 
communication interface, to initiate a plurality of 
essentially simultaneous communications seeking said one 
of said subscribers in response to said call, at least 
one of said communications including a signal to said 
one of said subscribers via said signaling system and at 
least another one of said communications comprising a 
telephone call placed via said communication interface 
and, in response to said one of said subscribers 
confirming receipt via said communication interface of 
at least one of said communications, placing said caller 
and said at least one of said subscribers into direct 
communication . 

2. The communications system of claim 1 wherein said 
signaling system is a paging system and wherein said 
subscriber carry pagers which respond to signals 
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broadcast by said paging system. 

3 . The communications system of claim 1 wherein said 
signaling system comprises a computer controlled voice 

5 generator and a transducer for reproducing sounds 
generated by said voice generator, said central 
processing unit controlling said voice generator, in 
combination with said transducer, to generate audible 
signals corresponding to said communications. 

10 

4 . The communications system of claim 1 wherein said 
one of said subscribers confirms receipt via said 
communication interface of at least one of said 
communications by answering said telephone call. 

15 

5. A communications system comprising: a central 
processing unit and a communications switch connected 
with the public switched telephone network and with said 
central processing unit, said central processing unit 

20 operating under program control to detect a call from a 
caller directed to a subscriber via said public switched 
telephone network and to initiate a plurality of 
essentially simultaneous communication inquiries via 
said public switched telephone network seeking said 

25 subscriber via different communication paths in said 
public switched telephone network in response to said 
call. 

6 . The communications system of claim 5 wherein said 
30 plurality of essentially simultaneous communication 

inquiries comprise a plurality telephone calls initiated 
to a plurality of different telephone numbers. 



7 . The communications system of claim 6 wherein at 
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least one of said plurality of telephone calls continues 
to ring irrespective of another one of said plurality of 
telephone calls being answered. 

8. A method of placing a caller into telecommunication 
with a subscriber, the method comprising the steps of: 

(i) detecting receipt of a call from said caller 
directed to said subscriber; 

(ii) in response to receipt of said call, initiating a 
page to said subscriber and at the same time initiating 
a forward leg call to a stored telephone address; 

(iii) placing said forward leg call in at least half 
duplex telecommunication with said caller, if answered; 
and 



(iv) detecting receipt of a call from said subscriber, 
and, in response thereto, placing said subscriber in at 
least half duplex telecommunication with said caller. 

9. The method of placing a caller into 
telecommunication with a subscriber as claimed in claim 
8, and while in telecommunication with the first 
mentioned caller, detecting receipt of a new call from a 
new caller directed to said subscriber, sending a signal 
to said subscriber indicating that said new call has 
been detected and responsive to a command entered by 
said subscriber, toggling said subscriber between the 
first mentioned caller and the new caller. 

10. The method of placing a caller into 
telecommunication with a subscriber as claimed in claim 
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8, and when said caller, said subscriber and a party on 
said forward leg are in telecommunication with each 
other, sensing a command entered by said subscriber to 
disconnect said party and disconnecting said party in 
response thereto . 

11. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
8, and when said caller, said subscriber and a party on 
said forward leg are all in telecommunication with each 
other, allowing said party and said caller to remain in 
telecommunication with each other in spite of said 
subscriber disconnecting . 

12. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
8, and wherein at least two of (i) said caller, (ii) 
said subscriber and (iii) a party on said forward leg 
are in telecommunication with each other, sensing a 
command entered by at least one of said two to add a 
further forward leg to said telecommunication . 

13. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
12, wherein the sensing step senses a command entered by 
any party in the telecommunication to add a further 
forward leg to said telecommunication. 

14 . The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
12, wherein said further forward leg is a connection 
made to a voice mail system. 

15. The method of placing a caller into 
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telecommunication with a subscriber as claimed in claim 
12, wherein said further forward leg is an outbound 
telephone call made to a third party. 

16. The method of placing a caller into 
telecommunication with a subscriber as claimed in claim 
8, and wherein at least two of (i) said caller, (ii) 
said subscriber and (iii) a party on said forward leg 
are in telecommunication with each other, sensing a 
command entered by at least one of said two to record a 
voice memo and recording said voice memo in response to 
said command. 

17. The method of placing a caller into 
telecommunication with a subscriber as claimed in claim 
8, wherein said subscriber is initially placed in half 
duplex communication with said caller and thereafter, in 
response to a command entered by said subscriber, the 
communication between the subscriber and the caller is 
changed to full duplex communication. 

18. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
8, wherein a party answering a forward leg call may hang 
up before the subscriber is placed into communication 
with the caller without disconnecting the caller. 

19. The method of placing a caller into 
telecommunication with a subscriber as claimed in claim 
18, wherein the caller is connected to a voice mail 
system in response to a command entered by the caller. 

20. The method of placing a caller into 
telecommunication with a subscriber as claimed in claim 
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18, wherein the caller is connected to a voice mail 
system after waiting for the subscriber for a period of 
time- 

21- The method of placing a caller into 
telecommunication with a subscriber as claimed in claim 
19 or 20, wherein when the caller is connected to voice 
mail the subscriber may listen to the caller's 
communications with voice mail in a listen mode wherein 
said subscriber cannot be heard by said caller- 

22 . The method of placing a caller into 
telecommunication with a subscriber as claimed in claim 
8, wherein the caller is connected to a voice mail 
system in response to a command entered by the caller. 

23. The method of claim 8, further including the steps 
of sensing a message from a telephone system advising 
that a telephone connected therewith has been powered up 
and in response thereto changing said telephone address . 

24. The method of claim 8, further including the steps 
of sensing a message from a telephone system advising 
that a telephone connected therewith has been powered up 
and in response thereto telephoning said subscriber at 
predetermined telephone address to deliver a 
predetermined courtesy message advising them of that 
fact . 

25. The method of claim 8, wherein said stored 
telephone address is stored in a database along with a 
schedule and wherein, in step <ii), said stored 
telephone address is selected from said database in 
accordance with said schedule. 
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26. The method of claim 8, wherein multiple forward leg 
calls are initiated to different stored telephone 
addresses simultaneously. 

5 

27. The method of claim 8, wherein in step (ii) 
multiple pages are initiated concurrently to different 
locations . 

10 28. The method of claim 27 , wherein one of said 

different locations is a paging system and wherein 
another of said locations is a speaker whereat an 
audible page is delivered. 

15 29. A method of placing a caller into telecommunication 
with a subscriber, the method comprising the steps of: 

(i) detecting receipt of a call from said caller 
directed to said subscriber; 

20 

(ii) in response to receipt of said call, initiating 
a forward leg call to a stored telephone address; 

(iii) connecting said call with a voice mail 
25 facility; 

(iv) connecting a person answering said forward leg 
call in half duplex telecommunication with said 
caller while said caller is connected to said voice 

30 mail facility; and 

(v) detecting receipt of a command from said person 
and, in response thereto, placing said person in 
full duplex telecommunication with said caller. 
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30. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
29, further including the steps of: 

(vi) initiating a page to a subscriber; 

(vii) sensing receipt of a call from said 
subscriber in response to said page, and placing 
said subscriber in half duplex telecommunication 
with said caller; and 

(viii) detecting receipt of a command from said 
subscriber and, in response thereto, placing said 
subscriber in full duplex telecommunication with 
said caller. 

31. The method of placing a caller into 

telecommunication with a subscriber as claimed in claims 
29 or 30, and when said subscriber, said caller, said 
person on said forward leg are in telecommunication with 
each other, sensing a command entered by said subscriber 
to disconnect said person and disconnecting said party 
in response thereto. 

32. The method of placing a caller into 

telecommunication with a subscriber as claimed in claims 
29 or 30, and when at least two of (i) said caller, (ii) 
said subscriber and (iii) a party on said forward leg 
are in telecommunication with each other, sensing a 
command entered by at least one of said two to add a 
further forward leg to said telecommunication and adding 
said further forward leg in response to said command. 
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33. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
32 , wherein said further forward leg is an outbound 
5 telephone call made to a third party. 

34 . The method of placing a caller into 

telecommunication with a subscriber as claimed in claims 
29 or 30, and wherein at least two of (i) said caller, 
10 (ii) said subscriber and (iii) a party on said forward 
leg are in telecommunication with each other, sensing a 
command entered by at least one of said two to record a 
voice memo and recording said voice memo in response to 
said command, 

15 

35. The method of placing a caller into 

telecommunication with a subscriber as claimed in claims 
29 or 30, wherein said person is initially placed in 
half duplex communication with said caller and 
20 thereafter, in response to a command entered by said 
person, the communication between the person and the 
caller is changed to full duplex communication. 

36. A method of placing a caller into telecommunication 
25 with a subscriber, the method comprising the steps of: 

(i) detecting receipt of a call from said caller 
directed to said subscriber; 

30 (ii) in response to receipt of said call, initiating 

a page to a subscriber ; 

(iii) connecting said caller with a voice mail 
facility; 
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(iv) sensing receipt of a call from said subscriber 
and placing said subscriber in half duplex 
telecommunication with said caller while said 
caller is connected to said voice mail facility; 
and 

(v) detecting receipt of a command from said 
subscriber and, in response thereto, placing said 
subscriber in full duplex telecommunication with 
said caller. 

37. The method of claim 36 further including the steps 
Of: 

(vi) initiating at least one forward leg call in 
response to receipt of the call from the caller; 
and 

(vii) wherein step (iii) occurs if at least one 
forward leg call is not promptly answered or at 
least after receipt of the call from the subscriber 
if at least one forward leg call has not previously 
answered. 

38. A method of placing a caller into telecommunication 
with a subscriber, the method comprising the steps of: 

(i) detecting receipt of a call from said caller 
directed to said subscriber; 

(ii) in response to receipt of said call, initiating 
a forward leg call to a stored telephone address 
and initiating a page to a subscriber; 
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(iii) connecting a person answering said forward 
leg call telecommunication with said caller; 

(iv) sensing receipt of a call from said subscriber 
and placing said subscriber in half duplex 
telecommunication with said caller while said 
subscriber is in telecommunication with said 
person; and 

(v) detecting receipt of a command from said 
subscriber and, in response thereto, placing said 
subscriber in full duplex telecommunication with 
said caller and said person. 

39, A communications system comprising: 

(a) a central processing unit; 

(b) a communications interface for connection to a 
telephone system and to a signaling system, the 
signaling system including a central transmitter which 
communicates with a plurality of receiving units carried 
by subscribers; 

(c) a communications switch connected with said 
communications interface and with said central 
processing unit, said central processing unit operating 
under program control to detect a call from a caller 
directed to one of said subscribers via said 
communication interface, to initiate a plurality of 
essentially simultaneous communication inquiries via 
said interface seeking said one of said subscribers via 
different communication paths in response to said call, 
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*3/ 

at least one of said inquiries including a signal to 
said one of said subscribers via said signaling system 
and placing said caller and said at least one of said 
subscribers into communication after said one of said 
5 subscribers responds to said communication inquires. 
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